Skip to content
Snippets Groups Projects
Commit f34125fe authored by ram's avatar ram
Browse files

Changed compiler-macro-function to work w/o LEXENV-INLINEP slot.

parent a3d59b3d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.18 1992/05/15 20:30:07 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.19 1992/09/19 17:45:06 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -360,13 +360,16 @@ ...@@ -360,13 +360,16 @@
else returns NIL. Note: if the name is shadowed in ENV by a local else returns NIL. Note: if the name is shadowed in ENV by a local
definition, or declared NOTINLINE, NIL is returned. Can be definition, or declared NOTINLINE, NIL is returned. Can be
set with SETF." set with SETF."
(unless (or (and env (assoc name (c::lexenv-functions env) :test #'equal)) (let ((found (and env
(eq (or (and env (cdr (assoc name (c::lexenv-functions env)
(cdr (assoc name (c::lexenv-inlines env) :test #'equal)))))
:key #'c::leaf-name :test #'equal))) (unless (eq (cond ((c::defined-function-p found)
(info function inlinep name)) (c::defined-function-inlinep found))
:notinline)) (found :notinline)
(values (info function compiler-macro-function name)))) (t
(info function inlinep name)))
:notinline)
(values (info function compiler-macro-function name)))))
(defun (setf compiler-macro-function) (function name) (defun (setf compiler-macro-function) (function name)
(declare (type (or symbol list) name) (declare (type (or symbol list) name)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment