From d92787108c381295ec100b2dca30dd676dd8c068 Mon Sep 17 00:00:00 2001
From: AJ Rossini <anthony.rossini@novartis.com>
Date: Thu, 14 Jun 2007 08:43:05 +0200
Subject: [PATCH] fixed format; ignore CLISP binaries

---
 .gitignore    | 2 ++
 lsobjects.lsp | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 30c2d42..11bd9ad 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,3 +3,5 @@
 semantic.cache
 fasl
 *.so
+*.fas
+*.lib
diff --git a/lsobjects.lsp b/lsobjects.lsp
index a77afec..5f10f00 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -84,7 +84,7 @@
   (serial (incf *object-serial*)))
 
 (defun print-object-structure (object stream depth)
-  (if nil (princ (format "~a : ~a : ~a" object stream depth) stream) ;warning avoidance
+  (if nil (format t "~a : ~a : ~a" object stream depth) ;warning avoidance
     (send object :print stream)))
 
 (setf (documentation 'objectp 'function)
-- 
2.11.4.GIT