/[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.2.1 by pw, Tue Jun 23 11:21:52 1998 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 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.2.1  
changed lines
  Added in v.1.22.2.2

  ViewVC Help
Powered by ViewVC 1.1.5