Changeset 9064 for trunk/j/src/org/armedbear/lisp/pprint-dispatch.lisp

Timestamp:

05/05/05 15:49:28 (16 years ago)

Author:

piso

Message:

COPY-PPRINT-DISPATCH: (sys::require-type table 'pprint-dispatch-table)

File:

• trunk/j/src/org/armedbear/lisp/pprint-dispatch.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/pprint-dispatch.lisp

@@ -1 +1 @@
 ;;; pprint-dispatch.lisp
 ;;;
-;;; Copyright (C) 2004 Peter Graves
-;;; $Id: pprint-dispatch.lisp,v 1.2 2004-10-04 16:33:50 piso Exp $
+;;; Copyright (C) 2004-2005 Peter Graves
+;;; $Id: pprint-dispatch.lisp,v 1.3 2005-05-05 15:49:28 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -66 +66 @@
   (unless table
     (setf table *ipd*))
+  (sys::require-type table 'pprint-dispatch-table)
   (let* ((new-conses-with-cars
           (make-hash-table :test #'eq