[closure-cvs] CVS closure/src/parse

[emarsden]

Update of /project/closure/cvsroot/closure/src/parse
In directory clnet:/tmp/cvs-serv12710/src/parse

Modified Files:
	pt.lisp 
Log Message:
Cleanups.


--- /project/closure/cvsroot/closure/src/parse/pt.lisp	2007/01/03 16:07:25	1.6
+++ /project/closure/cvsroot/closure/src/parse/pt.lisp	2007/01/04 23:46:26	1.7
@@ -78,7 +78,6 @@
                             (pprint k stream)))
     ;; (pprint-newline :mandatory stream)
     '(format stream "</~A>" (gi object)) ))
-||#
 
 #-CLISP
 (defun print-pt (self sink depth)
@@ -136,11 +135,7 @@
             #'prin1 
             sink)
            (write-string ")" sink)))))
-
-
-(defun print-pt (self sink depth)
-  (declare (ignore depth))
-  (format sink "#<~S ~A ..>" (type-of self) (pt-name self)))
+||#
 
 (defun make-pt (&key name attrs children)
   (let ((res (make-pt/low :name name :attrs attrs :children children)))