mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
bea48ddf3b
The position used to be reported as the point where the last successful read stopped. Now it's where the failing form "really" began, after skipping over whitespace and effectively whitespace char macro blobs.
18 lines
528 B
Common Lisp
18 lines
528 B
Common Lisp
"(in form starting at line: 13, column: 1, position: 247)" ; expect this
|
||
#|
|
||
More randomness
|
||
|#
|
||
|
||
|
||
#+no-such-feature (defun foo
|
||
(hooey))
|
||
; yay
|
||
|
||
;;; This should report EOF at a reasonable place
|
||
;;; and not "line 1 column 0"
|
||
(defun complex (realpart &optional (imagpart 0))
|
||
"Return a complex number with the specified real and imaginary components."
|
||
(flet ((%%make-complex (realpart imagpart)
|
||
(cond ((and (typep realpart 'double-float)
|
||
(typep imagpart 'double-float))
|