/[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.22 by ram, Mon Oct 31 04:11:27 1994 UTC revision 1.22.2.2 by pw, Sat Mar 23 18:49:58 2002 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 128  Line 128 
128             ,form)))))             ,form)))))
129    
130    
131  (define-setf-method logbitp (index int &environment env)  (define-setf-expander logbitp (index int &environment env)
132    (multiple-value-bind (temps vals stores store-form access-form)    (multiple-value-bind (temps vals stores store-form access-form)
133                         (get-setf-method int env)                         (get-setf-method int env)
134      (let ((ind (gensym))      (let ((ind (gensym))
# Line 370  Line 370 
370    to the value of the specified Init form.  On subsequent iterations, the Vars    to the value of the specified Init form.  On subsequent iterations, the Vars
371    are assigned the value of the Step form (if any) in paralell.  The Test is    are assigned the value of the Step form (if any) in paralell.  The Test is
372    evaluated before each evaluation of the body Forms.  When the Test is true,    evaluated before each evaluation of the body Forms.  When the Test is true,
373    the the Exit-Forms are evaluated as a PROGN, with the result being the value    the Exit-Forms are evaluated as a PROGN, with the result being the value
374    of the DO."    of the DO."
375    (lisp::do-do-body varlist endlist body decls 'let 'psetq    (lisp::do-do-body varlist endlist body decls 'let 'psetq
376                      'do-anonymous (gensym)))                      'do-anonymous (gensym)))
# 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.22  
changed lines
  Added in v.1.22.2.2

  ViewVC Help
Powered by ViewVC 1.1.5