freenode/#clasp - IRC Chatlog
Search
21:03:52
kpoeck
I have a question to https://github.com/clasp-developers/clasp/blob/dev/src/core/lispReader.cc#L1204
21:06:48
kpoeck
IT seems that was introduced on https://github.com/clasp-developers/clasp/commit/d375df2b98219e16d4b72a2ef19308ef22413673#diff-efdf9990892e3d7f24ab7788fd1a4701
21:07:48
kpoeck
but looking at the spec it seems counterintuitive that _sym_STARpreserve_whitespace_pSTAR is not used in read#
21:10:17
kpoeck
CLHS says that (read-from-string " 1 3 5" t nil :start 2) should return 3 5 and it does when I change #if 0 to #if 1
21:15:25
kpoeck
And (read-from-string " 1 3 5" t nil :start 2 :preserve-whitespace t) should return 3 4
21:19:05
drmeister
How about we bind _sym_STARpreserve_whitespace_pSTAR to T in cl__read_preserving_whitespace and NIL in cl__read and then in ...
21:20:28
drmeister
if (_sym_STARpreserve_whitespace_pSTAR->symbolValue().isTrue() && !recursiveP) clasp_unread_char(...)
21:22:16
drmeister
in collect_lexemes https://github.com/clasp-developers/clasp/blob/dev/src/core/lispReader.cc#L229
21:23:01
drmeister
It refers _sym_STARpreserve_whitespace_pSTAR is referenced - but there is no way to get recursiveP - does that matter?
21:30:11
kpoeck
_sym_STARsharp_equal_final_tableSTAR looks like a zombie, can't find that this is ever read
21:31:38
drmeister
https://github.com/clasp-developers/clasp/blob/dev/src/lisp/kernel/lsp/sharpmacros.lsp#L80
21:35:48
drmeister
Expanding the call here: https://github.com/clasp-developers/clasp/blob/dev/src/core/lispReader.cc#L1057