Changeset 4246

Timestamp:

10/07/03 17:20:41 (19 years ago)

Author:

piso

Message:

REQUIRE-TYPE

File:

• trunk/j/src/org/armedbear/lisp/early-defuns.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/early-defuns.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: early-defuns.lisp,v 1.2 2003-06-23 02:18:43 piso Exp $
+;;; $Id: early-defuns.lisp,v 1.3 2003-10-07 17:20:41 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -18 +18 @@
 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
-(in-package "COMMON-LISP")
+(in-package "SYSTEM")
+
+(defun require-type (arg type)
+  (unless (typep arg type)
+    (error 'type-error "the value ~S is not of type ~A" arg type)))
 
 (defun caaaar (list) (car (car (car (car list)))))