Changeset 14830


Ignore:
Timestamp:
Jun 15, 2011, 5:50:23 PM (8 years ago)
Author:
gz
Message:

in pretty printer, don't treat 2nd arg to defvar/defconstant/defparameter/progv as a list, treat it as a form

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pprint.lisp

    r14578 r14830  
    16811681    (declare (ignore args))
    16821682  (funcall (formatter "~:<~1I~W~^ ~@_~W~^ ~@_~:/pprint-fill/~^~@{ ~_~W~^~}~:>")
     1683            xp list))
     1684
     1685(defun defvar-like (xp list &rest args)
     1686    (declare (ignore args))
     1687  (funcall (formatter "~:<~1I~W~^ ~@_~W~^ ~@_~W~^~@{ ~_~W~^~}~:>")
    16831688            xp list))
    16841689
     
    19561961(set-pprint-dispatch+ '(cons (member defclass)) #'defun-like '(0) *IPD*)
    19571962(set-pprint-dispatch+ '(cons (member ctypecase)) #'block-like '(0) *IPD*)
    1958 (set-pprint-dispatch+ '(cons (member defconstant)) #'defun-like '(0) *IPD*)
     1963(set-pprint-dispatch+ '(cons (member defconstant)) #'defvar-like '(0) *IPD*)
    19591964(set-pprint-dispatch+ '(cons (member define-setf-expander)) #'defun-like '(0) *IPD*)
    19601965(set-pprint-dispatch+ '(cons (member defmacro)) #'defun-like '(0) *IPD*)
    19611966(set-pprint-dispatch+ '(cons (member define-modify-macro)) #'dmm-print '(0) *IPD*)
    1962 (set-pprint-dispatch+ '(cons (member defparameter)) #'defun-like '(0) *IPD*)
     1967(set-pprint-dispatch+ '(cons (member defparameter)) #'defvar-like '(0) *IPD*)
    19631968(set-pprint-dispatch+ '(cons (member defsetf)) #'defsetf-print '(0) *IPD*)
    19641969(set-pprint-dispatch+ '(cons (member define-setf-expander)) #'defun-like '(0) *IPD*)
     
    19671972(set-pprint-dispatch+ '(cons (member defun)) #'defun-like '(0) *IPD*)
    19681973(set-pprint-dispatch+ '(cons (member defmethod)) #'defmethod-like '(0) *IPD*)
    1969 (set-pprint-dispatch+ '(cons (member defvar)) #'defun-like '(0) *IPD*)
     1974(set-pprint-dispatch+ '(cons (member defvar)) #'defvar-like '(0) *IPD*)
    19701975(set-pprint-dispatch+ '(cons (member do)) #'do-print '(0) *IPD*)
    19711976(set-pprint-dispatch+ '(cons (member do*)) #'do-print '(0) *IPD*)
     
    19931998(set-pprint-dispatch+ '(cons (member prog)) #'prog-print '(0) *IPD*)
    19941999(set-pprint-dispatch+ '(cons (member prog*)) #'prog-print '(0) *IPD*)
    1995 (set-pprint-dispatch+ '(cons (member progv)) #'defun-like '(0) *IPD*)
     2000(set-pprint-dispatch+ '(cons (member progv)) #'defvar-like '(0) *IPD*)
    19962001(set-pprint-dispatch+ '(cons (member psetf)) #'setq-print '(0) *IPD*)
    19972002(set-pprint-dispatch+ '(cons (member psetq)) #'setq-print '(0) *IPD*)
Note: See TracChangeset for help on using the changeset viewer.