/[cmucl]/src/code/extensions.lisp
ViewVC logotype

Diff of /src/code/extensions.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by dtc, Sun Mar 1 21:46:03 1998 UTC revision 1.24 by pw, Sun Mar 4 20:12:34 2001 UTC
# Line 30  Line 30 
30  ;;;  ;;;
31  ;;;    This is here until we figure out what to do with it.  ;;;    This is here until we figure out what to do with it.
32  ;;;  ;;;
33  (proclaim '(inline undefined-value))  (declaim (inline undefined-value))
34  (defun undefined-value ()  (defun undefined-value ()
35    '%undefined%)    '%undefined%)
36    
37  ;;; REQUIRED-ARGUMENT  --  Public  ;;; REQUIRED-ARGUMENT  --  Public
38  ;;;  ;;;
39  (proclaim '(ftype (function () nil) required-argument))  (declaim (ftype (function () nil) required-argument))
40  (defun required-argument ()  (defun required-argument ()
41    "This function can be used as the default value for keyword arguments that    "This function can be used as the default value for keyword arguments that
42    must be always be supplied.  Since it is known by the compiler to never    must be always be supplied.  Since it is known by the compiler to never
# Line 562  Line 562 
562        `(progn        `(progn
563           (defvar ,var-name)           (defvar ,var-name)
564           (,init-form ,@(inits))           (,init-form ,@(inits))
565           (proclaim '(type (simple-vector ,total-size) ,var-name))           (declaim (type (simple-vector ,total-size) ,var-name))
566           (proclaim '(inline ,@(inlines)))           (declaim (inline ,@(inlines)))
567           ,@(forms)           ,@(forms)
568           ',name))))           ',name))))
569    

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5