Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
François-René Rideau
fare-quasiquote
Compare Revisions
8618c24924dec0a4d1008eaeca94f900644097af...28cd3c4b9ce04db4b3a17a617b4fbbb63ab6dbde
Commits (1)
Uncomment one test.
· 28cd3c4b
Francois-Rene Rideau
authored
May 23, 2015
Note that the test suite currently fails when non-standard features are enabled :-(
28cd3c4b
Show whitespace changes
Inline
Side-by-side
quasiquote-test.lisp
View file @
28cd3c4b
...
...
@@ -276,7 +276,8 @@
(
is
(
equal
(
eval
(
eval
(
rq
expression
)))
value
)))
t
)
#| ;;; This test from dougk's 2014 patch to sbcl's backquote doesn't pass with strict append semantics
;;; This test is from dougk's 2014 patch to sbcl's backquote
#-
(
or
quasiquote-strict-append
quasiquote-passes-literals
quasiquote-at-macro-expansion-time
)
(
deftest
test-nested-backquote-readable-bogosity
()
(
eval
(
rq
"(defmacro broken-macro (more-bindings)
`(macrolet ((with-bindings (&body body)
...
...
@@ -310,7 +311,6 @@
`(let ((thing1 :something) ,(cl:quote . frob)) ,@body)))
(with-bindings (thing)))"
'
(
broken-macro
frob
))))
|#
(
deftest
preserving-inner-backquotes
()
(
flet
((
e
(
s
v
)
...
...
@@ -371,6 +371,7 @@
#+
quasiquote-strict-append
"`(foo ,.x)"
))
(
is
(
equal
(
prq
"`(foo (,x))"
)
"`(foo (,x))"
)))
;;;; One more test from the SBCL test suite:
;;; more backquote printing brokenness, fixed quasi-randomly by CSR.
;;; NOTE KLUDGE FIXME: because our backquote optimizes at read-time,
;;; these assertions, like the ones above, are fragile. Likewise, it
...
...
quasiquote.lisp
View file @
28cd3c4b
...
...
@@ -14,7 +14,9 @@
;;(pushnew :quasiquote-strict-append *features*)
;;(pushnew :quasiquote-passes-literals *features*)
;;(pushnew :quasiquote-at-macro-expansion-time *features*)
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
;;; Functions that actually build data structures.
;; Note that we want our own tokens for decompilation reasons,
;; but as functions they must evaluate the usual way.
...
...