Move (setf find-class) from std-object to methods

std-object compilation mode :both
- SBCL raise error
- CCL ignore it

Author: vlad-km

src/clos/methods.lisp

@@ -21,6 +21,11 @@
       (setf-slot-value-using-class new-value (!class-of object) object slot-name)))
 
 
+;;; @vlad-km
+;;; moved from std-object.lisp
+(defun (setf find-class) (new-value symbol)
+  (setf (gethash symbol *class-table*) new-value))
+
 ;;; print-object
 (defgeneric print-object (instance &optional stream))
 

src/clos/std-object.lisp

@@ -438,7 +438,10 @@
 (defun setf-find-class (symbol new-value)
   (setf (gethash symbol *class-table*) new-value))
 
-#+jscl
+;;; @vlad-km
+;;; remove to methods.lisp
+;;;
+#+nil
 (defun (setf find-class) (new-value symbol)
   (setf (gethash symbol *class-table*) new-value))