Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

[c390b9]: src / tests / bugs / sf286.lsp Maximize Restore History

Download this file

sf286.lsp    16 lines (13 with data), 472 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
;; miscompilation - assumed that read-from-string returns a fixnum.
(deftest sf286-a
(assert
(let ((string ":cl-user"))
(find-package
(let ((*package* (find-package :cl)))
(read-from-string string))))))
(deftest sf286-b
(assert
(let ((string ":cl-user"))
(let ((*package* (find-package :cl)))
(find-package
(read-from-string string))))))