Raymond Toy pushed to branch issue-193-nil-unspecific-equivalent at cmucl / cmucl
Commits:
-
dd8b90e0
by Raymond Toy at 2023-04-29T07:33:03-07:00
1 changed file:
Changes:
| ... | ... | @@ -944,3 +944,21 @@ |
| 944 | 944 | (assert-true (typep idf-max-expo 'kernel:double-float-int-exponent))
|
| 945 | 945 | (assert-true (typep (1- idf-max-expo) 'kernel:double-float-int-exponent))
|
| 946 | 946 | (assert-false (typep (1+ idf-max-expo) 'kernel:double-float-int-exponent))))
|
| 947 | + |
|
| 948 | +(define-test issue.192.device
|
|
| 949 | + (assert-true (equal (make-pathname :device :unspecific)
|
|
| 950 | + (make-pathname :device nil)))
|
|
| 951 | + (assert-true (equal (make-pathname :device nil)
|
|
| 952 | + (make-pathname :device :unspecific))))
|
|
| 953 | + |
|
| 954 | +(define-test issue.192.name
|
|
| 955 | + (assert-true (equal (make-pathname :name :unspecific)
|
|
| 956 | + (make-pathname :name nil)))
|
|
| 957 | + (assert-true (equal (make-pathname :name nil)
|
|
| 958 | + (make-pathname :name :unspecific))))
|
|
| 959 | + |
|
| 960 | +(define-test issue.192.type
|
|
| 961 | + (assert-true (equal (make-pathname :type :unspecific)
|
|
| 962 | + (make-pathname :type nil)))
|
|
| 963 | + (assert-true (equal (make-pathname :type nil)
|
|
| 964 | + (make-pathname :type :unspecific)))) |