src/pset-parse.lisp: Export the `parse-property' function.

[sod] / src / fragment-parse.lisp

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index b1e9e8c0c0b50cbdcc99473a91f876c3fcb78ba7..15a7d141248a2b1cbf8b9903363afe487eb4308f 100644 (file)
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -135,11 +135,12 @@ (defun parse-delimited-fragment (scanner begin end &key keep-end)
   (if (if (eq begin t)
          (not (scanner-at-eof-p scanner))
          (eql (token-type scanner) begin))
-      (multiple-value-prog1 (values (scan-c-fragment scanner
-                                                    (if (listp end)
-                                                        end
-                                                        (list end)))
-                                   t t)
+      (multiple-value-prog1
+         (values (scan-c-fragment scanner
+                                  (if (listp end) end
+                                      (list end)))
+                 t
+                 t)
        (scanner-step scanner)
        (unless keep-end (scanner-step scanner)))
       (values (list begin) nil nil)))