/[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 by rtoy, Thu Jun 18 17:34:58 2009 UTC revision 1.114 by rtoy, Thu Mar 18 16:43:11 2010 UTC
# Line 351  Line 351 
351  ;;;    Similar to %Defmacro, ...  ;;;    Similar to %Defmacro, ...
352  ;;;  ;;;
353  (defun c::%%defun (name def doc &optional inline-expansion)  (defun c::%%defun (name def doc &optional inline-expansion)
354      (c::define-function-name name)
355    (setf (fdefinition name) def)    (setf (fdefinition name) def)
356    (when doc    (when doc
357      (if (and (consp name) (eq (first name) 'setf))      (if (and (consp name) (eq (first name) 'setf))
358          (setf (documentation (second name) 'setf) doc)          (setf (documentation (second name) 'setf) doc)
359          (setf (documentation name 'function) doc)))          (setf (documentation name 'function) doc)))
   (c::define-function-name name)  
360    (when (eq (info function where-from name) :assumed)    (when (eq (info function where-from name) :assumed)
361      (setf (info function where-from name) :defined)      (setf (info function where-from name) :defined)
362      (when (info function assumed-type name)      (when (info function assumed-type name)

Legend:
Removed from v.1.113  
changed lines
  Added in v.1.114

  ViewVC Help
Powered by ViewVC 1.1.5