Ignore:
Timestamp:
11/09/03 14:28:31 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4664 r4683  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: transform.lisp,v 1.5 2003-11-07 18:12:01 piso Exp $
     4;;; $Id: transform.lisp,v 1.6 2003-11-09 14:28:31 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    100100           (transform-lambda args))
    101101          ((eq op 'BLOCK)
    102            (append (list 'BLOCK (car args)) (mapcar #'transform1 (cdr args))))
     102           (if (null (cdr args))
     103               nil
     104               (list* 'BLOCK (car args) (mapcar #'transform1 (cdr args)))))
    103105          ((eq op 'SETQ)
    104106           (when (= 2 (length args))
Note: See TracChangeset for help on using the changeset viewer.