/[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.5.1.3 by wlott, Sat Mar 24 21:37:57 1990 UTC revision 1.5.1.4 by wlott, Thu Apr 5 23:24:49 1990 UTC
# Line 196  Line 196 
196                                           )                                           )
197        `(eval-when (compile load eval)        `(eval-when (compile load eval)
198           #-new-compiler           #-new-compiler
199           ,@(unless (eq *bootstrap-deftype* t)           ,@(unless (or (eq *bootstrap-deftype* t)
200                           (member :new-compiler *features*))
201               `((setf (get ',name 'deftype-expander)               `((setf (get ',name 'deftype-expander)
202                       #'(lambda (,whole) ,@local-decs (block ,name ,body)))))                       #'(lambda (,whole) ,@local-decs (block ,name ,body)))))
203           ,@(when #-new-compiler *bootstrap-deftype* #+new-compiler t           ,@(when #-new-compiler *bootstrap-deftype* #+new-compiler t

Legend:
Removed from v.1.5.1.3  
changed lines
  Added in v.1.5.1.4

  ViewVC Help
Powered by ViewVC 1.1.5