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

Diff of /src/pcl/macros.lisp

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

revision 1.4 by ram, Sat Aug 1 15:29:19 1992 UTC revision 1.4.1.1 by ram, Fri Aug 14 01:31:16 1992 UTC
# Line 504  Line 504 
504  your lisp")  your lisp")
505  )  )
506    
507  #+(or lucid kcl excl cmu)  #+(or lucid kcl excl)
508  (defmacro define-compiler-macro (name arglist &body body)  (defmacro define-compiler-macro (name arglist &body body)
509    `(#+lucid lcl:def-compiler-macro    `(#+lucid lcl:def-compiler-macro
510      #+kcl   si::define-compiler-macro      #+kcl   si::define-compiler-macro
511      #+excl  excl::defcmacro      #+excl  excl::defcmacro
     #+cmu   c:def-source-transform  
512          ,name ,arglist          ,name ,arglist
513       ,@body))       ,@body))
514    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.1.1

  ViewVC Help
Powered by ViewVC 1.1.5