/[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.85 by toy, Thu Jan 23 21:05:34 2003 UTC revision 1.86 by gerd, Wed Feb 5 11:08:43 2003 UTC
# Line 301  Line 301 
301  ;;; lambda-list.  ;;; lambda-list.
302  ;;;  ;;;
303  (defmacro defun (&whole source name lambda-list &body (body decls doc))  (defmacro defun (&whole source name lambda-list &body (body decls doc))
304    (let ((def `(lambda ,lambda-list    (multiple-value-bind (valid block-name)
305                  ,@decls        (valid-function-name-p name)
306                  (block ,(if (and (consp name) (eq (car name) 'setf))      (let ((def `(lambda ,lambda-list
307                              (cadr name)                    ,@decls
308                              name)                    (block ,block-name ,@body))))
309                    ,@body))))        `(c::%defun ',name #',def ,doc ',source))))
     `(c::%defun ',name #',def ,doc ',source)))  
310    
311    
312  ;;; %Defun, %%Defun  --  Internal  ;;; %Defun, %%Defun  --  Internal

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

  ViewVC Help
Powered by ViewVC 1.1.5