From be2e427754f484438cac5ccbc16852a34e87c543 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 26 Jan 2005 12:37:12 +0000
Subject: [PATCH] The stream argument for DESCRIBE-OBJECT is now a required
 one, instead of an optional.

---
 src/CHANGELOG         | 3 +++
 src/clos/print.lsp    | 4 ++--
 src/clos/standard.lsp | 4 ++--
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index b233f308a..0dfc1db8f 100644
--- a/src/CHANGELOG
+++ b/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 ***
diff --git a/src/clos/print.lsp b/src/clos/print.lsp
index 7553b5482..19125d166 100644
--- a/src/clos/print.lsp
+++ b/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"
diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 89ecc6168..ec0aeab12 100644
--- a/src/clos/standard.lsp
+++ b/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)))