/[cmucl]/src/clx/dependent.lisp
ViewVC logotype

Diff of /src/clx/dependent.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.2 by ram, Sun Oct 14 22:56:42 1990 UTC revision 1.1.1.3 by ram, Thu Feb 14 18:08:02 1991 UTC
# Line 2022  Line 2022 
2022  ;;; This controls macro expansion, and isn't changable at run-time You will  ;;; This controls macro expansion, and isn't changable at run-time You will
2023  ;;; probably want to set this to nil if you want good performance at  ;;; probably want to set this to nil if you want good performance at
2024  ;;; production time.  ;;; production time.
2025  (defconstant *type-check?* #+Genera nil #-Genera t)  (defconstant *type-check?* #+(or cmu Genera) nil #-(or cmu Genera) t)
2026    
2027  ;; TYPE? is used to allow the code to do error checking at a different level from  ;; TYPE? is used to allow the code to do error checking at a different level from
2028  ;; the declarations.  It also does some optimizations for systems that don't have  ;; the declarations.  It also does some optimizations for systems that don't have
2029  ;; good compiler support for TYPEP.  The definitions for CARD32, CARD16, INT16, etc.  ;; good compiler support for TYPEP.  The definitions for CARD32, CARD16, INT16, etc.
2030  ;; include range checks.  You can modify TYPE? to do less extensive checking  ;; include range checks.  You can modify TYPE? to do less extensive checking
2031  ;; for these types if you desire.  ;; for these types if you desire.
2032    ;;
2033    ;; ### This comment is a lie!  TYPE? is really also used for run-time type
2034    ;; dispatching, not just type checking.  -- Ram.
2035    
2036  (defmacro type? (object type)  (defmacro type? (object type)
2037      #+cmu
2038      `(typep ,object ,type)
2039      #-cmu
2040    (if (not (constantp type))    (if (not (constantp type))
2041        `(typep ,object ,type)        `(typep ,object ,type)
2042      (progn      (progn

Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3

  ViewVC Help
Powered by ViewVC 1.1.5