/[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.113.10.7 by rtoy, Tue Mar 2 00:39:16 2010 UTC revision 1.113.10.8 by rtoy, Thu Mar 18 22:17:15 2010 UTC
# Line 359  Line 359 
359  ;;;    Similar to %Defmacro, ...  ;;;    Similar to %Defmacro, ...
360  ;;;  ;;;
361  (defun c::%%defun (name def doc &optional inline-expansion)  (defun c::%%defun (name def doc &optional inline-expansion)
362      (c::define-function-name name)
363    (setf (fdefinition name) def)    (setf (fdefinition name) def)
364    (when doc    (when doc
365      (if (and (consp name) (eq (first name) 'setf))      (if (and (consp name) (eq (first name) 'setf))
366          (setf (documentation (second name) 'setf) doc)          (setf (documentation (second name) 'setf) doc)
367          (setf (documentation name 'function) doc)))          (setf (documentation name 'function) doc)))
   (c::define-function-name name)  
368    (when (eq (info function where-from name) :assumed)    (when (eq (info function where-from name) :assumed)
369      (setf (info function where-from name) :defined)      (setf (info function where-from name) :defined)
370      (when (info function assumed-type name)      (when (info function assumed-type name)

Legend:
Removed from v.1.113.10.7  
changed lines
  Added in v.1.113.10.8

  ViewVC Help
Powered by ViewVC 1.1.5