/[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.106 by rtoy, Fri Oct 21 13:13:33 2005 UTC revision 1.107 by rtoy, Fri Oct 21 17:56:07 2005 UTC
# Line 235  Line 235 
235                     ,@(when doc `(,doc)))))))                     ,@(when doc `(,doc)))))))
236  ;;;  ;;;
237  (defun %deftype (name expander &optional doc)  (defun %deftype (name expander &optional doc)
238      (when (info declaration recognized name)
239        (error "Deftype already names a declaration: ~S." name))
240    (ecase (info type kind name)    (ecase (info type kind name)
241      (:primitive      (:primitive
242       (when *type-system-initialized*       (when *type-system-initialized*

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

  ViewVC Help
Powered by ViewVC 1.1.5