p-star-cmd.lib 2.94 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
#0Y_ #0Y |CHARSET|::|UTF-8|
(|COMMON-LISP|::|UNLESS|
 (|COMMON-LISP|::|MEMBER| "PRODUCTION-PARSING" |COMMON-LISP|::|*MODULES*|
  :|TEST| #'|COMMON-LISP|::|STRING=|)
 (|COMMON-LISP-USER|::|COMPILE-AND-LOAD|
  (|COMMON-LISP|::|TRANSLATE-LOGICAL-PATHNAME|
   "ACT-R6:support;production-parsing-support")))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|DEFINE-P*|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|DEFINE-P*|
 (|SYSTEM|::|MAKE-MACRO|
  (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|DEFINE-P*|
   (|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
    (|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
    (|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
    "Production definition."
    (|COMMON-LISP|::|LET*|
     ((|COMMON-LISP-USER|::|DEFINITION|
       (|COMMON-LISP|::|CDR| |SYSTEM|::|<MACRO-FORM>|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|DEFINE-P*|
      `(|COMMON-LISP-USER|::|P*-FCT| ',|COMMON-LISP-USER|::|DEFINITION|)))))
  '(|COMMON-LISP|::|&REST| |COMMON-LISP-USER|::|DEFINITION|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|DEFINE-P*-FCT|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|DEFINITION|)))
(|SYSTEM|::|REMOVE-OLD-DEFINITIONS| '|COMMON-LISP-USER|::|P*|)
(|SYSTEM|::|%PUTD| '|COMMON-LISP-USER|::|P*|
 (|SYSTEM|::|MAKE-MACRO|
  (|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|P*|
   (|COMMON-LISP|::|LAMBDA| (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
    (|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|CONS| |SYSTEM|::|<MACRO-FORM>|))
    (|COMMON-LISP|::|DECLARE| (|COMMON-LISP|::|IGNORE| |SYSTEM|::|<ENV-ARG>|))
    "Production definition."
    (|COMMON-LISP|::|LET*|
     ((|COMMON-LISP-USER|::|DEFINITION|
       (|COMMON-LISP|::|CDR| |SYSTEM|::|<MACRO-FORM>|)))
     (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|P*|
      `(|COMMON-LISP-USER|::|P*-FCT| ',|COMMON-LISP-USER|::|DEFINITION|)))))
  '(|COMMON-LISP|::|&REST| |COMMON-LISP-USER|::|DEFINITION|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|P*-FCT|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '(|COMMON-LISP-USER|::|DEFINITION|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|DEFINE-VARIABLE-CHUNK-SPEC-FCT|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|SPECIFICATIONS-LIST|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|PROCESS-VARIABLE-SLOTS-SPECS|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|CHUNK-TYPE| |COMMON-LISP-USER|::|SPECS|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|VALID-VARIABLE-CHUNK-MOD-SPEC|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|CHUNK-TYPE|
    |COMMON-LISP-USER|::|MODIFICATIONS-LIST|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EXTEND-BUFFER-CHUNK|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|BUFFER-NAME| |COMMON-LISP-USER|::|MOD-LIST|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EXTENDING-CHUNK-TYPE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|CT| |COMMON-LISP-USER|::|SLOT|)))