Ignore:
Timestamp:
12/03/03 02:28:25 (18 years ago)
Author:
piso
Message:

NOT compiler macro.

File:
1 edited

Legend:

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

    r4918 r4951  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.17 2003-11-30 03:11:59 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.18 2003-12-03 02:28:25 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7575                  (>  '<=)
    7676                  (t  nil))))
    77         (if (and op
    78                  ;; (< x) => t for real x
    79                  (> (length arg) 2))
     77        (if (and op (= (length arg) 3))
    8078            (cons op (cdr arg))
    8179            form))))
Note: See TracChangeset for help on using the changeset viewer.