Changeset 4526


Ignore:
Timestamp:
10/24/03 17:15:25 (18 years ago)
Author:
piso
Message:

TRANSFORM1: added (eq fun 'QUOTE) case.

File:
1 edited

Legend:

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

    r4513 r4526  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: transform.lisp,v 1.1 2003-10-23 13:12:04 piso Exp $
     4;;; $Id: transform.lisp,v 1.2 2003-10-24 17:15:25 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    130130             (push 'PROGN result)
    131131             result))
     132          ((eq fun 'QUOTE)
     133           form)
    132134          ((and (symbolp fun) (fboundp fun))
    133135           (cons fun (mapcar #'transform1 args)))
Note: See TracChangeset for help on using the changeset viewer.