cboundp & symbol-class

[kanderso@WILMA.BBN.COM]

;;; Patch added to the end of high.lisp:
;;; KRA: Obvious extensions to PCL to make it a bit more like CLOS chapter 2.

(export 'cboundp 'pcl)
(defun cboundp (symbol &optional environment)
  (declare (ignore environment))
  ;; "The function CBOUNDP returns TRUE or FALSE."
  (if (class-named symbol t) t))

(export 'symbol-class 'pcl)
(defun symbol-class (symbol &optional environment)
  (declare (ignore environment))
  (class-named symbol t))