Bug in Cinco de Mayo PCL

[Andreas Girgensohn <andreasg@boulder.Colorado.EDU>]

I compiled Cinco de Mayo PCL with *print-case* = :downcase.  Somebody
else tried to load it with *print-case* = :upcase and got an error.  I
found the function that produces the bug and fixed it.

Andreas Girgensohn
andreasg@boulder.colorado.edu

;;; in DEFS.LISP

(defun make-type-predicate-name (class-name)
  (intern (format nil
		  "~A ~A  predicate"
		  (package-name (symbol-package class-name))
		  (symbol-name class-name))
	  *the-pcl-package*))

#||
;;; old version
(defun make-type-predicate-name (class-name)
  (intern (format nil
		  "~A ~A  predicate"
		  (package-name (symbol-package class-name))
		  class-name
		  *the-pcl-package*)))
||#