Changeset 4448

Timestamp:

10/18/03 17:28:19 (20 years ago)

Author:

piso

Message:

COMPILE-SPECIAL: compile values-form in MULTIPLE-VALUE-BIND case.

File:

• trunk/j/src/org/armedbear/lisp/compiler.lisp (modified) (3 diffs)

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: compiler.lisp,v 1.52 2003-10-18 16:59:09 piso Exp $
+;;; $Id: compiler.lisp,v 1.53 2003-10-18 17:28:19 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -197 +197 @@
              (body (cddr form)))
          (cons first (cons args (compile-progn body)))))
-      ((DO DO* MULTIPLE-VALUE-BIND)
+      ((DO DO*)
        (let ((second (second form))
              (third (third form))
@@ -229 +229 @@
       (MACROLET
        (compile-macrolet form))
+      (MULTIPLE-VALUE-BIND
+       (let ((vars (second form))
+             (values-form (third form))
+             (body (cdddr form)))
+         (list* 'multiple-value-bind vars (compile-sexp values-form)
+                (mapcar #'compile-sexp body))))
       (MULTIPLE-VALUE-SETQ
        (list 'multiple-value-setq (second form) (compile-sexp (third form))))