Changeset 4003

Timestamp:

09/22/03 17:20:27 (20 years ago)

Author:

piso

Message:

Moved CHECK-TYPE to check-type.lisp.

File:

• trunk/j/src/org/armedbear/lisp/fixme.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/fixme.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: fixme.lisp,v 1.4 2003-08-16 13:24:35 piso Exp $
+;;; $Id: fixme.lisp,v 1.5 2003-09-22 17:20:27 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -17 +17 @@
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+(in-package "SYSTEM")
 
 ;; Should be a special operator.
@@ -46 +48 @@
   nil)
 
-(defmacro check-type (place typespec &optional string)
-  nil)
-
 (defun warn (&rest args)
   nil)