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

Diff of /src/compiler/macros.lisp

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

revision 1.49 by gerd, Mon Mar 31 11:13:22 2003 UTC revision 1.50 by emarsden, Fri Apr 11 15:28:11 2003 UTC
# Line 177  Line 177 
177               `((setf (documentation ',name 'function) ,doc)))               `((setf (documentation ',name 'function) ,doc)))
178           (setf (info function ir1-convert ',name) #',fn-name)           (setf (info function ir1-convert ',name) #',fn-name)
179           (setf (info function kind ',name) ,kind)           (setf (info function kind ',name) ,kind)
          #+new-compiler  
180           ,@(when (eq kind :special-form)           ,@(when (eq kind :special-form)
181               `((setf (symbol-function ',name) #'special-form-function)))))))               `((setf (symbol-function ',name) #'special-form-function)))))))
182    

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

  ViewVC Help
Powered by ViewVC 1.1.5