;; $Revision: 1.5 $
;; Common Lisp standard symbols
(put 'defpackage 'common-lisp-indent-function 1)
(put 'handler-bind 'common-lisp-indent-function 1)
(put 'handler-case 'common-lisp-indent-function
     '(4 &rest (&whole 2 4 &body)))
(put 'pprint-logical-block 'common-lisp-indent-function 1)
(put 'print-unreadable-object 'common-lisp-indent-function 1)
(put 'restart-case 'common-lisp-indent-function
     '(4 &rest (&whole 2 4 &body)))
(put 'with-accessors 'common-lisp-indent-function 2)
(put 'with-output-to-string 'common-lisp-indent-function 1)
(put 'with-slots 'common-lisp-indent-function 2)
(put 'with-standard-io-syntax 'common-lisp-indent-function 0)

;; For the SERIES package
(put 'gathering 'common-lisp-indent-function 1)
(put 'iterate 'common-lisp-indent-function 1)
(put 'mapping 'common-lisp-indent-function 1)
(put 'producing 'common-lisp-indent-function 2)

;; For CLX
(put 'with-clx-requests 'common-lisp-indent-function 0)

;; CMUCL-specific
(put 'dovector 'common-lisp-indent-function '((&whole 4 2 1) &body))
(put 'with-interrupts 'common-lisp-indent-function 0)
(put 'without-interrupts 'common-lisp-indent-function 0)

(put 'stream-dispatch 'common-lisp-indent-function 1)
(put 'simple-stream-dispatch 'common-lisp-indent-function 1)
(put 'simple-stream-dispatch-2 'common-lisp-indent-function 1)

;; MSL.TEST
(put 'ensure 'common-lisp-indent-function '(4 2 4))