Changeset 4246


Ignore:
Timestamp:
10/07/03 17:20:41 (19 years ago)
Author:
piso
Message:

REQUIRE-TYPE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/early-defuns.lisp

    r2543 r4246  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: early-defuns.lisp,v 1.2 2003-06-23 02:18:43 piso Exp $
     4;;; $Id: early-defuns.lisp,v 1.3 2003-10-07 17:20:41 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 (in-package "COMMON-LISP")
     20(in-package "SYSTEM")
     21
     22(defun require-type (arg type)
     23  (unless (typep arg type)
     24    (error 'type-error "the value ~S is not of type ~A" arg type)))
    2125
    2226(defun caaaar (list) (car (car (car (car list)))))
Note: See TracChangeset for help on using the changeset viewer.