From 3d2dd5fac704e7687ea9d3fadd63284b2ffe5216 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 2 Dec 1991 23:58:27 +0000 Subject: [PATCH] Don't bother deftypeing boolean, because we don't use it anymore. Instead of deftypeing index, import it from kernel. --- code/format.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/code/format.lisp b/code/format.lisp index f869192f5..53625a88d 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) -- GitLab