/[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.104 by rtoy, Mon May 9 20:22:18 2005 UTC revision 1.105 by rtoy, Wed Jul 13 14:46:34 2005 UTC
# Line 544  Line 544 
544  (defmacro multiple-value-setq (varlist value-form)  (defmacro multiple-value-setq (varlist value-form)
545    (unless (and (listp varlist) (every #'symbolp varlist))    (unless (and (listp varlist) (every #'symbolp varlist))
546      (simple-program-error "Varlist is not a list of symbols: ~S." varlist))      (simple-program-error "Varlist is not a list of symbols: ~S." varlist))
547    `(values (setf (values ,@varlist) ,value-form)))    (if varlist
548          `(values (setf (values ,@varlist) ,value-form))
549          `(values ,value-form)))
550    
551  ;;;  ;;;
552  (defmacro multiple-value-bind (varlist value-form &body body)  (defmacro multiple-value-bind (varlist value-form &body body)

Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105

  ViewVC Help
Powered by ViewVC 1.1.5