Changeset 4448


Ignore:
Timestamp:
10/18/03 17:28:19 (19 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compiler.lisp

    r4447 r4448  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.52 2003-10-18 16:59:09 piso Exp $
     4;;; $Id: compiler.lisp,v 1.53 2003-10-18 17:28:19 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    197197             (body (cddr form)))
    198198         (cons first (cons args (compile-progn body)))))
    199       ((DO DO* MULTIPLE-VALUE-BIND)
     199      ((DO DO*)
    200200       (let ((second (second form))
    201201             (third (third form))
     
    229229      (MACROLET
    230230       (compile-macrolet form))
     231      (MULTIPLE-VALUE-BIND
     232       (let ((vars (second form))
     233             (values-form (third form))
     234             (body (cdddr form)))
     235         (list* 'multiple-value-bind vars (compile-sexp values-form)
     236                (mapcar #'compile-sexp body))))
    231237      (MULTIPLE-VALUE-SETQ
    232238       (list 'multiple-value-setq (second form) (compile-sexp (third form))))
Note: See TracChangeset for help on using the changeset viewer.