Changeset 8309


Ignore:
Timestamp:
12/28/04 12:27:44 (17 years ago)
Author:
piso
Message:

PRECOMPILE-THE

File:
1 edited

Legend:

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

    r8296 r8309  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.84 2004-12-26 18:45:04 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.85 2004-12-28 12:27:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    472472      (list* 'PROGN (mapcar #'precompile1 body)))))
    473473
     474(defun precompile-the (form)
     475  (list 'THE
     476        (second form)
     477        (precompile1 (third form))))
     478
    474479(defun precompile-let/let*-vars (vars)
    475480  (let ((result nil))
     
    776781(install-handler 'go                   'precompile-identity)
    777782(install-handler 'quote                'precompile-identity)
    778 (install-handler 'the                  'precompile-identity)
     783(install-handler 'the                  'precompile-the)
    779784(install-handler 'throw                'precompile-cons)
    780785
Note: See TracChangeset for help on using the changeset viewer.