Changeset 4550


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

TRANSFORM1: SETQ case (work in progress).

File:
1 edited

Legend:

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

    r4526 r4550  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: transform.lisp,v 1.2 2003-10-24 17:15:25 piso Exp $
     4;;; $Id: transform.lisp,v 1.3 2003-10-27 17:28:16 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    125125               (when (= 1 (length args))
    126126                 (error "odd number of args to SETQ"))
    127                (push (list 'SETQ (first args) (transform1 (second args))) result)
     127               (push (transform1 (list 'SETQ (first args) (second args))) result)
    128128               (setq args (cddr args)))
    129129             (setq result (nreverse result))
Note: See TracChangeset for help on using the changeset viewer.