[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv3927

Modified Files:
	swank-openmcl.lisp 
Log Message:
More fixes.


--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2006/08/14 05:19:09	1.111
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2006/08/14 20:44:20	1.112
@@ -177,10 +177,9 @@
   (setq ccl::*interactive-abort-process* ccl::*current-process*))
 
 (defimplementation make-stream-interactive (stream)
-  nil)
-
-(defmethod make-stream-interactive ((stream ccl:fundamental-output-stream))
-  (push stream ccl::*auto-flush-streams*))
+  (typecase stream
+    (ccl:fundamental-output-stream 
+     (push stream ccl::*auto-flush-streams*))))
 
 ;;; Unix signals
 
@@ -743,7 +742,7 @@
 (defimplementation make-default-inspector ()
   (make-instance 'openmcl-inspector))
 
-(defmethod describe-primitive-type (thing)
+(defimplementation describe-primitive-type (thing)
   (let ((typecode (ccl::typecode thing)))
     (if (gethash typecode *value2tag*)
 	(string (gethash typecode *value2tag*))