Changeset 4447 for trunk/j/src/org/armedbear/lisp/compiler.lisp

Timestamp:

10/18/03 16:59:09 (19 years ago)

Author:

piso

Message:

COMPILE-SPECIAL: handle MULTIPLE-VALUE-SETQ.

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.51 2003-10-18 16:23:59 piso Exp $
+;;; $Id: compiler.lisp,v 1.52 2003-10-18 16:59:09 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -147 +147 @@
     (setf res (list* 'macrolet (reverse res) compiled-body))
     res))
+;;     (setf res (list* 'progn compiled-body))
+;;     res))
 
 (defun compile-special (form)
@@ -227 +229 @@
       (MACROLET
        (compile-macrolet form))
+      (MULTIPLE-VALUE-SETQ
+       (list 'multiple-value-setq (second form) (compile-sexp (third form))))
       (t
 ;;        (format t "COMPILE-SPECIAL skipping ~S~%" first)