Commit 83d10fe4 authored by Vladimir Sedach's avatar Vladimir Sedach

Prettied up whitespace and comments in parse-lambda-list, ref2test.

parent c4ad06ac
(in-package parenscript)
;;;; This software was taken from the SBCL system. there are very few
;;;; changes, and one SBCL-specific thing left (sb-c::collect
(in-package :parenscript)
;;;; This software was taken from the SBCL system, mostly verbatim.
;;; if you have found this on google, THIS IS NOT AN SBCL SOURCE FILE
......@@ -25,9 +25,8 @@
;;; 14. the &KEY-OBJECT var
;;;
;;; The top level lambda list syntax is checked for validity, but the
;;; arg specifiers are just passed through untouched. If something is
;;; wrong, we use COMPILER-ERROR, aborting compilation to the last
;;; recovery point.
;;; arg specifiers are just passed through untouched.
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun collect-list-expander (n-value n-tail forms)
(let ((n-res (gensym)))
......@@ -119,10 +118,8 @@
(unless (member state
'(:required :optional :post-rest :post-more))
(format t "misplaced &KEY in lambda list: ~S" list))
#-sb-xc-host
(when (optional)
(format t
"&OPTIONAL and &KEY found in the same lambda list: ~S" list))
(format t "&OPTIONAL and &KEY found in the same lambda list: ~S" list))
(setq keyp t
state :key))
(&allow-other-keys
......
......@@ -102,5 +102,4 @@
(list #\Newline))
line))))))))))
(make-reference-tests-dot-lisp)
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment