diff --git a/code/format.lisp b/code/format.lisp index f869192f535cf0eddae73f291b812ff30c273c6f..53625a88da689e665a9834e8ea22d1f6891eaecd 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.17 1991/12/02 18:56:15 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.18 1991/12/02 23:58:27 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -19,17 +19,13 @@ (in-package "FORMAT") (use-package "EXT") +(import 'kernel:index) (in-package "LISP") (export '(format formatter)) (in-package "FORMAT") -(deftype boolean () - '(member t nil)) -(deftype index () - '(and unsigned-byte fixnum)) - (defstruct (format-directive (:print-function %print-format-directive)) (string (required-argument) :type simple-string)