/[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.26 by pmai, Thu Sep 19 17:48:17 2002 UTC revision 1.27 by gerd, Sat Apr 19 20:52:43 2003 UTC
# Line 364  Line 364 
364           (return-from ,BLOCK (progn ,@(cdr endlist))))))))           (return-from ,BLOCK (progn ,@(cdr endlist))))))))
365    
366    
367  (defmacro do-anonymous (varlist endlist &body (body decls))  (defmacro do-anonymous (varlist endlist &parse-body (body decls))
368    "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*    "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*
369    Like DO, but has no implicit NIL block.  Each Var is initialized in parallel    Like DO, but has no implicit NIL block.  Each Var is initialized in parallel
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
# Line 376  Line 376 
376                      'do-anonymous (gensym)))                      'do-anonymous (gensym)))
377    
378  (defmacro do-hash ((key-var value-var table &optional result)  (defmacro do-hash ((key-var value-var table &optional result)
379                     &body (body decls))                     &parse-body (body decls))
380    "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*    "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*
381     Iterate over the entries in a hash-table."     Iterate over the entries in a hash-table."
382    (let ((gen (gensym))    (let ((gen (gensym))
# Line 572  Line 572 
572  ;;;  ;;;
573  (defmacro defun-cached ((name &rest options &key (values 1) default  (defmacro defun-cached ((name &rest options &key (values 1) default
574                                &allow-other-keys)                                &allow-other-keys)
575                          args &body (body decls doc))                          args &parse-body (body decls doc))
576    "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*    "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*
577    Some syntactic sugar for defining a function whose values are cached by    Some syntactic sugar for defining a function whose values are cached by
578    DEFINE-HASH-CACHE."    DEFINE-HASH-CACHE."

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5