Revision: 3792 Author: ksprotte URL: http://bknr.net/trac/changeset/3792

safer print-object method for node-extension

U trunk/projects/bos/web/quad-tree.lisp

Modified: trunk/projects/bos/web/quad-tree.lisp =================================================================== --- trunk/projects/bos/web/quad-tree.lisp 2008-09-04 13:39:10 UTC (rev 3791) +++ trunk/projects/bos/web/quad-tree.lisp 2008-09-04 14:03:38 UTC (rev 3792) @@ -177,8 +177,13 @@ (def-extension-reader depth))

(defmethod print-object ((node node-extension) stream) - (print-unreadable-object (node stream :type t :identity t) - (format stream "name: ~s path: ~s" (name node) (node-path node)))) + (handler-case + (let ((name (name node)) + (node-path (node-path node))) + (print-unreadable-object (node stream :type t :identity t) + (format stream "name: ~s path: ~s" name node-path))) + (error () + (print-unreadable-object (node stream :type t :identity t)))))

(defmethod delete-node-extension ((node node-extension)) (setf (%extensions (base-node node))