doc/*.tex: Add stubs for `file-location' reader methods.

[sod] / src / parser / parser-expr-proto.lisp

diff --git a/src/parser/parser-expr-proto.lisp b/src/parser/parser-expr-proto.lisp
index 7fc2609fc7a60f5b14d78f4653ae0454ea580461..326f3e5714d5066ddd5ad452ed0ee736d02d3828 100644 (file)
--- a/src/parser/parser-expr-proto.lisp
+++ b/src/parser/parser-expr-proto.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
 
 ;;;----- 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
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by


@@ -41,7 +41,7 @@ (defgeneric push-value (value state)
   (:documentation
    "Push VALUE onto the STATE's value stack.
 
   (:documentation
    "Push VALUE onto the STATE's value stack.
 

-   The default message just does that without any fuss.  It's unlikely that
+   The default method just does that without any fuss.  It's unlikely that

    this will need changing unless you invent some really weird values."))
 
 (export 'apply-operator)
    this will need changing unless you invent some really weird values."))
 
 (export 'apply-operator)


@@ -101,7 +101,8 @@ (defparse expr ((&key (nestedp (gensym "NESTEDP-")))
 ;;;--------------------------------------------------------------------------
 ;;; Numerical precedence.
 
 ;;;--------------------------------------------------------------------------
 ;;; Numerical precedence.
 

-(export '(operator-left-precedence operator-right-precedence))
+(export '(operator-left-precedence operator-right-precedence
+         operator-associativity))

 (defgeneric operator-left-precedence (operator)
   (:documentation
    "Return the OPERATOR's left-precedence.
 (defgeneric operator-left-precedence (operator)
   (:documentation
    "Return the OPERATOR's left-precedence.


@@ -154,7 +155,7 @@ (defclass prefix-operator ()
 
 (export 'simple-operator)
 (defclass simple-operator ()
 
 (export 'simple-operator)
 (defclass simple-operator ()

-  ((function :initarg :function :reader operator-function)
+  ((%function :initarg :function :reader operator-function)

    (name :initarg :name :initform "<unnamed operator>"
         :reader operator-name))
   (:documentation
    (name :initarg :name :initform "<unnamed operator>"
         :reader operator-name))
   (:documentation