~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/lsp/pprint.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2006-06-21 09:21:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060621092121-txz1f21lj0wh0f67
Tags: 0.9h-20060617-1
* New upstream version
* Updated standards version without real changes. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
104
104
                 ))
105
105
 
106
106
(defmethod print-object ((pretty-stream pretty-stream) stream)
107
 
  (print-unreadable-object (pstream stream :type t :identity t))
 
107
  (print-unreadable-object (pretty-stream stream :type t :identity t))
108
108
  #+nil
109
109
  (format stream "#<pretty stream {~8,'0X}>"
110
 
          (kernel:get-lisp-obj-address pstream)))
 
110
          (kernel:get-lisp-obj-address pretty-stream)))
111
111
 
112
112
(declaim (inline index-posn posn-index posn-column))
113
113
(defun index-posn (index stream)