Changeset 4724


Ignore:
Timestamp:
11/14/03 00:06:05 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r4706 r4724  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.2 2003-11-12 20:09:34 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.3 2003-11-14 00:06:05 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    156156            (unless (symbolp v)
    157157              (error 'type-error))
    158             (setq result (append result (list (list v (precompile1 expr))))))
    159           (setq result (append result (list var)))))
    160     result))
     158            (push (list v (precompile1 expr)) result))
     159          (push var result)))
     160    (nreverse result)))
    161161
    162162(defun precompile-let/let* (form)
     
    436436
    437437(precompile-package "PRECOMPILER")
     438(precompile-package "EXTENSIONS")
    438439(precompile-package "SYSTEM")
    439440(precompile-package "COMMON-LISP")
Note: See TracChangeset for help on using the changeset viewer.