Changeset 8296


Ignore:
Timestamp:
12/26/04 18:45:04 (17 years ago)
Author:
piso
Message:

(install-handler 'the 'precompile-identity)

File:
1 edited

Legend:

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

    r8245 r8296  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.83 2004-12-15 16:30:56 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.84 2004-12-26 18:45:04 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    690690  (list* 'EVAL-WHEN (cadr form) (mapcar #'precompile1 (cddr form))))
    691691
    692 (defun precompile-the (form)
    693   (precompile1 (caddr form)))
    694 
    695692(defun precompile-unwind-protect (form)
    696693  (list* 'UNWIND-PROTECT
     
    752749                            symbol-macrolet
    753750                            tagbody
    754                             the
    755751                            unwind-protect
    756752                            unless
     
    780776(install-handler 'go                   'precompile-identity)
    781777(install-handler 'quote                'precompile-identity)
     778(install-handler 'the                  'precompile-identity)
    782779(install-handler 'throw                'precompile-cons)
    783780
Note: See TracChangeset for help on using the changeset viewer.