The stream argument for DESCRIBE-OBJECT is now a required one, instead of an optional.

src/CHANGELOG

@@ -33,6 +33,9 @@ ECL 0.9f
  - Now an error is signaled for unmatched parenthesis as in "(1 2 3))".
    The only exception is in the toplevel, where only a warning is issued.
 
+ - The stream argument for DESCRIBE-OBJECT is now a required one, instead of
+   an optional.
+
 ;;; Local Variables: ***
 ;;; mode:text ***
 ;;; fill-column:79 ***

src/clos/print.lsp

@@ -72,7 +72,7 @@
 ;;; Describe
 ;;; ----------------------------------------------------------------------
 
-(defmethod describe-object ((obj t) &optional (stream t))
+(defmethod describe-object ((obj t) (stream t))
   (let* ((class (class-of obj))
 	 (slotds (class-slots class)))
     (format stream "~%~A is an instance of class ~A"
@@ -89,7 +89,7 @@
 	  (prin1 "Unbound" stream))))
   obj)
 
-(defmethod describe-object ((obj class) &optional (stream t))
+(defmethod describe-object ((obj class) (stream t))
   (let* ((class  (si:instance-class obj))
 	 (slotds (class-slots class)))
     (format stream "~%~A is an instance of class ~A"

src/clos/standard.lsp

@@ -444,7 +444,7 @@ because it contains a reference to the undefined class~%  ~A"
 		      'SLOT-MAKUNBOUND)))
   instance)
 
-(defmethod describe-object ((obj standard-object) &optional (stream t))
+(defmethod describe-object ((obj standard-object) (stream t))
   (let* ((class (si:instance-class obj))
 	 (slotds (class-slots class))
 	 slotname has-shared-slots)
@@ -584,7 +584,7 @@ because it contains a reference to the undefined class~%  ~A"
 ;;; ----------------------------------------------------------------------
 ;;; Methods
 
-(defmethod describe-object ((obj standard-class))
+(defmethod describe-object ((obj standard-class) (stream t))
   (let ((slotds (class-slots (si:instance-class obj))))
     (format t "~%~A is an instance of class ~A"
 	    obj (class-name (si:instance-class obj)))