2023-09-11 21:25:51 |
Paul F. Dietz |
description |
(defun bug233 ()
(let ((lam
'(lambda (s)
(declare (type (simple-array *) s))
(string-right-trim "" s))))
(funcall (compile nil lam) "abc")))
(bug233) ==> ""
(string-right-trim "" "abc") ==> "abc"
(typep "abc" '(simple-array *)) ==> T |
(defun bug233 ()
(let ((lam
'(lambda (s)
(declare (type (simple-array *) s))
(string-right-trim "" s))))
(funcall (compile nil lam) "abc")))
(bug233) ==> ""
(string-right-trim "" "abc") ==> "abc"
(typep "abc" '(simple-array *)) ==> T
x86-64, "2.3.8.139-59cbece16" |
|