Commit f240870d authored by pfdietz's avatar pfdietz
Browse files

Fixed problem with keyword BOA lambda list arguments, and added a case...

Fixed problem with keyword BOA lambda list arguments, and added a case (sbt-15) exercising problems with them in CMU CL.
parent c83bb559
......@@ -157,7 +157,7 @@
;;; Keyword arguments
(defstruct* (sbt-08 (:constructor sbt-08-con
(&key ((foo a)))))
(&key ((:foo a)))))
a)
(deftest structure-boa-test-08/1
......@@ -166,11 +166,11 @@
(defstruct* (sbt-09 (:constructor sbt-09-con
(&key (a 'p a-p)
((x b) 'q)
((:x b) 'q)
(c 'r)
d
((y e))
((z f) 's z-p)
((:y e))
((:z f) 's z-p)
&aux (g (list (notnot a-p)
(notnot z-p))))))
a b c d e f g)
......@@ -307,3 +307,45 @@
(sbt-slots 'sbt-14 (sbt-14-con :d 9) :a :b :c)
(1 2 3))
;;; Keywords are in the correct package, and slot names are not
;;; keyword parameters if not specified.
(defstruct* (sbt-15 (:constructor sbt-15-con
(&key ((:x a) nil)
((y b) nil)
(c nil))))
a b c)
(deftest structure-boa-test-15/1
(sbt-slots 'sbt-15 (sbt-15-con :x 1 'y 2 :c 3) :a :b :c)
(1 2 3))
(deftest structure-boa-test-15/2
(classify-error (sbt-15-con :a 1))
program-error)
(deftest structure-boa-test-15/3
(classify-error (sbt-15-con :b 1))
program-error)
(deftest structure-boa-test-15/4
(classify-error (sbt-15-con 'x 1))
program-error)
(deftest structure-boa-test-15/5
(classify-error (sbt-15-con :y 1))
program-error)
(deftest structure-boa-test-15/6
(classify-error (sbt-15-con 'c 1))
program-error)
(deftest structure-boa-test-15/7
(classify-error (sbt-15-con 'a 1))
program-error)
(deftest structure-boa-test-15/8
(classify-error (sbt-15-con 'b 1))
program-error)
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