/[cmucl]/src/code/macros.lisp
ViewVC logotype

Diff of /src/code/macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ram, Thu Feb 8 12:48:27 1990 UTC revision 1.3 by ram, Thu Feb 8 14:27:56 1990 UTC
# Line 126  Line 126 
126    ;; environment, but is read with the NEW-COMPILER feature.    ;; environment, but is read with the NEW-COMPILER feature.
127    (when (fboundp 'eval:interpreted-function-p)    (when (fboundp 'eval:interpreted-function-p)
128      (assert (eval:interpreted-function-p definition))      (assert (eval:interpreted-function-p definition))
129      (setf (eval:interpreted-function-name definition) name)      (setf (eval:interpreted-function-name definition)
130              (format nil "DEFMACRO ~S" name))
131      (setf (eval:interpreted-function-arglist definition) lambda-list))      (setf (eval:interpreted-function-arglist definition) lambda-list))
132    (c::%%defmacro name definition doc))    (c::%%defmacro name definition doc))
133  ;;;  ;;;
# Line 267  Line 268 
268  ;;;  ;;;
269  (defun c::%defun (name def doc source)  (defun c::%defun (name def doc source)
270    (declare (ignore source))    (declare (ignore source))
271      #+new-compiler
272      (assert (eval:interpreted-function-p def))
273      #+new-compiler
274      (setf (eval:interpreted-function-name def) name)
275    (c::%%defun name def doc))    (c::%%defun name def doc))
276    
277    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5