Changeset 5753


Ignore:
Timestamp:
02/10/04 16:28:32 (17 years ago)
Author:
piso
Message:

Added compiler macros for TYPEP and SUBTYPEP.

File:
1 edited

Legend:

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

    r5752 r5753  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.25 2004-02-10 16:21:25 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.26 2004-02-10 16:28:32 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8383            (cons op (cdr arg))
    8484            form))))
     85
     86(define-compiler-macro typep (&whole form &rest args)
     87  (if (= (length args) 2)
     88      `(%typep ,@args)
     89      form))
     90
     91(define-compiler-macro subtypep (&whole form &rest args)
     92  (if (= (length args) 2)
     93      `(%subtypep ,@args)
     94      form))
    8595
    8696(in-package "EXTENSIONS")
Note: See TracChangeset for help on using the changeset viewer.