mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-28 07:22:27 -08:00
15640a79e4
Usage was mixed, once it is si:put-sysprop, once just put-sysprop. Add full package qualifiers to put-sysprop/get-sysprop/rem-sysprop.
40 lines
1.4 KiB
Common Lisp
40 lines
1.4 KiB
Common Lisp
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil; Package: C -*-
|
|
;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
|
|
|
|
;;;;
|
|
;;;; Copyright (c) 2010, Juan Jose Garcia-Ripoll.
|
|
;;;;
|
|
;;;; This program is free software; you can redistribute it and/or
|
|
;;;; modify it under the terms of the GNU Library General Public
|
|
;;;; License as published by the Free Software Foundation; either
|
|
;;;; version 2 of the License, or (at your option) any later version.
|
|
;;;;
|
|
;;;; See file '../Copyright' for full details.
|
|
;;;;
|
|
;;;; CMPOPT-CONSTANTS Constant expressions.
|
|
;;;;
|
|
|
|
(in-package "COMPILER")
|
|
|
|
(defun constant-expression-p (form &optional (env *cmp-env*))
|
|
(or (constantp form env)
|
|
(and (consp form)
|
|
(let ((head (car form)))
|
|
(or (member head '(IF OR AND NULL NOT PROGN))
|
|
(and (si:get-sysprop head 'pure)
|
|
(inline-possible head))))
|
|
(loop for c in (rest form)
|
|
always (constant-expression-p c env)))))
|
|
|
|
(defun extract-constant-value (form &optional failure (env *cmp-env*))
|
|
(if (constant-expression-p form env)
|
|
(handler-case (cmp-eval form env)
|
|
(error (c) failure))
|
|
failure))
|
|
|
|
(defun constant-value-p (form &optional (env *cmp-env*))
|
|
(if (constant-expression-p form env)
|
|
(handler-case
|
|
(values t (cmp-eval form env))
|
|
(error (c) (values nil form)))
|
|
(values nil form)))
|