Changeset 4556

Timestamp:

10/28/03 02:40:42 (19 years ago)

Author:

piso

Message:

MULTIPLE-VALUE-SETQ

File:

• trunk/j/src/org/armedbear/lisp/boot.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/boot.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.121 2003-10-28 02:28:46 piso Exp $
+;;; $Id: boot.lisp,v 1.122 2003-10-28 02:40:42 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -419 +419 @@
 
 (sys::%load "late-setf.lisp")
+
+;; MULTIPLE-VALUE-SETQ (from CMUCL)
+(defmacro multiple-value-setq (varlist value-form)
+  (unless (and (listp varlist) (every #'symbolp varlist))
+    (error "~S is not a list of symbols" varlist))
+  `(values (setf (values ,@varlist) ,value-form)))