Ignore:
Timestamp:
11/15/03 14:30:30 (18 years ago)
Author:
piso
Message:

Added compiler macro for IDENTITY.

File:
1 edited

Legend:

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

    r4763 r4764  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.5 2003-11-15 13:48:23 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.6 2003-11-15 14:30:30 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2727         `(assq ,(first args) ,(second args)))
    2828        (t form)))
     29
     30(define-compiler-macro identity (&whole form &rest args)
     31  (if (= (length args) 1)
     32      `(progn ,(car args))
     33      form))
    2934
    3035(in-package "EXTENSIONS")
Note: See TracChangeset for help on using the changeset viewer.