/[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.14 by wlott, Wed Nov 7 17:18:37 1990 UTC revision 1.15 by wlott, Sun Nov 18 07:43:08 1990 UTC
# Line 147  Line 147 
147    (let ((fn-name (symbolicate "IR1-CONVERT-" name))    (let ((fn-name (symbolicate "IR1-CONVERT-" name))
148          (n-form (gensym))          (n-form (gensym))
149          (n-env (gensym)))          (n-env (gensym)))
150      (multiple-value-bind (body decls doc)      (multiple-value-bind
151                           (lisp::parse-defmacro          (body decls doc)
152                            lambda-list n-form body name          (lisp::parse-defmacro lambda-list n-form body name 'special-form
153                            :error-string "Wrong number of arguments to special form ~S: ~D."                                :doc-string-allowed t
154                            :doc-string-allowed t                                :environment n-env)
                           :environment n-env)  
155        `(progn        `(progn
156           (proclaim '(function ,fn-name (continuation continuation t) void))           (proclaim '(function ,fn-name (continuation continuation t) void))
157           (defun ,fn-name (,start-var ,cont-var ,n-form)           (defun ,fn-name (,start-var ,cont-var ,n-form)
# Line 193  Line 192 
192    (let ((fn-name (symbolicate "SOURCE-TRANSFORM-" name))    (let ((fn-name (symbolicate "SOURCE-TRANSFORM-" name))
193          (n-form (gensym))          (n-form (gensym))
194          (n-env (gensym)))          (n-env (gensym)))
195      (multiple-value-bind (body decls)      (multiple-value-bind
196                           (lisp::parse-defmacro lambda-list n-form body name          (body decls)
197                                                 :error-string "Foo!"          (lisp::parse-defmacro lambda-list n-form body name
198                                                 :environment n-env)                                'def-source-transform
199                                  :environment n-env)
200        `(progn        `(progn
201           (defun ,fn-name (,n-form)           (defun ,fn-name (,n-form)
202             (let ((,n-env *lexical-environment*))             (let ((,n-env *lexical-environment*))
# Line 215  Line 215 
215    (let ((fn-name (symbolicate "PRIMITIVE-TRANSLATE-" name))    (let ((fn-name (symbolicate "PRIMITIVE-TRANSLATE-" name))
216          (n-form (gensym))          (n-form (gensym))
217          (n-env (gensym)))          (n-env (gensym)))
218      (multiple-value-bind (body decls)      (multiple-value-bind
219                           (lisp::parse-defmacro          (body decls)
220                            lambda-list n-form body name          (lisp::parse-defmacro lambda-list n-form body name
221                            :error-string "Wrong number of arguments to primitive ~S: ~D."                                'def-primitive-translator
222                            :environment n-env)                                :environment n-env)
223        `(progn        `(progn
224           (defun ,fn-name (,n-form)           (defun ,fn-name (,n-form)
225             (let ((,n-env *lexical-environment*))             (let ((,n-env *lexical-environment*))

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5