From 04e5f922ea23e326d849d93795c7a90399edb71d Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sat, 9 Jun 2007 22:56:08 +0200 Subject: [PATCH] small text cleanup --- lsobjects.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lsobjects.lsp b/lsobjects.lsp index 90425be..a77afec 100644 --- a/lsobjects.lsp +++ b/lsobjects.lsp @@ -84,8 +84,8 @@ (serial (incf *object-serial*))) (defun print-object-structure (object stream depth) - (if nil (princ "~a : ~a : ~a" object stream depth)) ;warning avoidance - (send object :print stream)) + (if nil (princ (format "~a : ~a : ~a" object stream depth) stream) ;warning avoidance + (send object :print stream))) (setf (documentation 'objectp 'function) "Args: (x) @@ -751,7 +751,7 @@ Default object printing method." (defmeth *object* :slot-value (sym &optional (val nil set)) "Method args: (sym &optional val) -Sets and retrieves value of slot named SYM. Sugnals an error if slot +Sets and retrieves value of slot named SYM. Signals an error if slot does not exist." (if set (setf (slot-value sym) val)) (slot-value sym)) -- 2.11.4.GIT