~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): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
 
2
;;;;
1
3
;;; -*- Package: PRETTY-PRINT -*-
2
4
;;;
3
5
;;; **********************************************************************
1133
1135
             (pprint-dispatch-table-cons-entries orig))
1134
1136
    new))
1135
1137
 
 
1138
(defun default-pprint-dispatch (stream object)
 
1139
  (write-ugly-object object stream))
 
1140
 
1136
1141
(defun pprint-dispatch (object &optional (table *print-pprint-dispatch*))
1137
1142
  (declare (type (or pprint-dispatch-table null) table))
1138
1143
  (let* ((table (or table *initial-pprint-dispatch*))
1149
1154
              (return entry)))))
1150
1155
    (if entry
1151
1156
        (values (pprint-dispatch-entry-function entry) t)
1152
 
        (values #'(lambda (stream object)
1153
 
                    (write-ugly-object object stream))
1154
 
                nil))))
 
1157
        (values #'default-pprint-dispatch nil))))
1155
1158
 
1156
1159
(defun set-pprint-dispatch (type function &optional
1157
1160
                            (priority 0) (table *print-pprint-dispatch*))