Skip to content
Browse files

tidied up patches from Pascal

  • Loading branch information...
1 parent cf46006 commit a562a2b7404e2f45795dd182cc1d9485967bc666 John Williams committed Aug 5, 2010
Showing with 6 additions and 7 deletions.
  1. +2 −1 languages/translate.lisp
  2. +1 −3 parsers/rst.lisp
  3. +3 −3 parsers/state-machine.lisp
View
3 languages/translate.lisp
@@ -17,7 +17,8 @@ containing an a-list mapping translated form to a cannonical form")
(eval-when(:compile-toplevel)
(setq *language-directory*
- (merge-pathnames (make-pathname :name :wild #-clisp :type #-clisp :unspecific)
+ (merge-pathnames (make-pathname :name :wild
+ #-clisp :type #-clisp :unspecific)
*compile-file-truename*)))
(defstruct translation
(translated (make-hash-table :test #'equalp) :type hash-table)
View
4 parsers/rst.lisp
@@ -303,8 +303,6 @@ back up the calling chain until the correct section level is reached."
(defun inline-text(text lineno)
(parse-inline rst-patterns text :line lineno ))
-
-
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter +roman-numeral-map+
@@ -397,7 +395,7 @@ ordinal and the type value to be given in html")
(anonymous "^__( +|$)")
(line line)
(text ,#'(lambda(s &key (start 0) (end (length s)))
- (values start end)) 'body)))))
+ (values start end)) 'body)))))
(defclass body(rst-state)
((initial-transitions :allocation :class :initform +rst-transitions+))
View
6 parsers/state-machine.lisp
@@ -374,9 +374,9 @@ document structures.")
in subclasses. Recursively run the state machine for indented blocks"))
(eval-when (:compile-toplevel :load-toplevel :execute)
-(defparameter +wsp-transitions+
- '((blank "^\\s*$" )
- (indent "^ +" ))
+ (defparameter +wsp-transitions+
+ '((blank "^\\s*$" )
+ (indent "^ +" ))
"Transitons for a wsp state machine"))
(defclass wsp-state(state)

0 comments on commit a562a2b

Please sign in to comment.
Something went wrong with that request. Please try again.