repo.or.cz
/
sbcl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Try harder to get a writable directory for split-core
[sbcl.git]
/
tests
/
data
/
compile-file-pos.lisp
blob
bbbbb509cb35a997daf3c3bf661f2a743f3f24ca
1
;; This file is encoded in UTF8 xxx.
2
;;
3
(
defun
cfp-foolz1
()
4
(
values
"Here is a string: םולש"
5
(
format
nil
"Line ~D"
(
compile-file-line
))
6
(
format
nil
"Hey hey! ~D"
(
compile-file-position
))))