diff --git a/tables.lisp b/tables.lisp index 9c676c2..fe205be 100644 --- a/tables.lisp +++ b/tables.lisp @@ -159,13 +159,13 @@ :body (((td (:plain "col" " " (:code "3") " " "is") left) (td (:plain "some" " " "wordy" " " "text") center) - (td (:plain "$1600") right)) + (td (:plain "$" "1600") right)) ((td (:plain "col" " " "2" " " "is") left) (td (:plain "centered") center) - (td (:plain "$12") right)) + (td (:plain "$" "12") right)) ((td (:plain "zebra" " " "stripes") left) (td (:plain "are" " " "neat") center) - (td (:plain "$1") right))))) + (td (:plain "$" "1") right))))) (parse-doc " | Left-Aligned | Center Aligned | Right Aligned | | :------------ |:---------------:| -----:| diff --git a/tests/extensions/tables.lisp b/tests/extensions/tables.lisp index 87a655d..011e024 100644 --- a/tests/extensions/tables.lisp +++ b/tests/extensions/tables.lisp @@ -62,13 +62,13 @@ :BODY (((TD (:PLAIN "col" " " (:CODE "3") " " "is") LEFT) (TD (:PLAIN "some" " " "wordy" " " "text") CENTER) - (TD (:PLAIN "$1600") RIGHT)) + (TD (:PLAIN "$" "1600") RIGHT)) ((TD (:PLAIN "col" " " "2" " " "is") LEFT) (TD (:PLAIN "centered") CENTER) - (TD (:PLAIN "$12") RIGHT)) + (TD (:PLAIN "$" "12") RIGHT)) ((TD (:PLAIN "zebra" " " "stripes") LEFT) (TD (:PLAIN "are" " " "neat") CENTER) - (TD (:PLAIN "$1") RIGHT))))) + (TD (:PLAIN "$" "1") RIGHT))))) (3bmd-tests::def-grammar-test tables-4