Permalink
Browse files

FIX: UNBOUND-VARIABLE when loading demo/auto.ops using CCL.

  • Loading branch information...
nakrakiiya committed Mar 25, 2013
1 parent d810387 commit 6c4d2158128ecb0d6d9ff5b367816c610d4fd7b8
Showing with 74 additions and 74 deletions.
  1. +6 −6 src/ops-backup.lisp
  2. +17 −17 src/ops-compile.lisp
  3. +5 −5 src/ops-globals.lisp
  4. +5 −5 src/ops-io.lisp
  5. +15 −15 src/ops-main.lisp
  6. +7 −7 src/ops-match.lisp
  7. +19 −19 src/ops-rhs.lisp
View
@@ -21,12 +21,12 @@
;;; Internal Global Variables
(defvar *refracts*)
(defvar *record*)
(defvar *record-array*)
(defvar *recording*)
(defvar *max-record-index*)
(defvar *record-index*)
(defvar *refracts* nil)
(defvar *record* nil)
(defvar *record-array* nil)
(defvar *recording* nil)
(defvar *max-record-index* nil)
(defvar *record-index* nil)
View
@@ -23,27 +23,27 @@
;;; External global variables
(defvar *real-cnt*)
(defvar *virtual-cnt*)
(defvar *last-node*)
(defvar *first-node*)
(defvar *pcount*)
(defvar *real-cnt* nil)
(defvar *virtual-cnt* nil)
(defvar *last-node* nil)
(defvar *first-node* nil)
(defvar *pcount* nil)
;;; Internal global variables
(defvar *matrix*)
(defvar *curcond*)
(defvar *feature-count*)
(defvar *ce-count*)
(defvar *vars*)
(defvar *ce-vars*)
(defvar *rhs-bound-vars*)
(defvar *rhs-bound-ce-vars*)
(defvar *last-branch*)
(defvar *subnum*)
(defvar *cur-vars*)
(defvar *action-type*)
(defvar *matrix* nil)
(defvar *curcond* nil)
(defvar *feature-count* nil)
(defvar *ce-count* nil)
(defvar *vars* nil)
(defvar *ce-vars* nil)
(defvar *rhs-bound-vars* nil)
(defvar *rhs-bound-ce-vars* nil)
(defvar *last-branch* nil)
(defvar *subnum* nil)
(defvar *cur-vars* nil)
(defvar *action-type* nil)
View
@@ -18,11 +18,11 @@
;;; Global variables also used by OPS modules.
(defvar *halt-flag*)
(defvar *cycle-count*)
(defvar *p-name*)
(defvar *ptrace*)
(defvar *wtrace*)
(defvar *halt-flag* nil)
(defvar *cycle-count* nil)
(defvar *p-name* nil)
(defvar *ptrace* nil)
(defvar *wtrace* nil)
;;; Hash Tables.
View
@@ -22,11 +22,11 @@
;;; Internal global variables.
(defvar *write-file*)
(defvar *trace-file*)
(defvar *accept-file*)
(defvar *ppline*)
(defvar *filters*)
(defvar *write-file* nil)
(defvar *trace-file* nil)
(defvar *accept-file* nil)
(defvar *ppline* nil)
(defvar *filters* nil)
View
@@ -24,21 +24,21 @@
;;; Global variables used in this module only.
(defvar *limit-token*)
(defvar *total-wm*)
(defvar *max-token*)
(defvar *total-token*)
(defvar *brkpts*)
(defvar *phase*)
(defvar *break-flag*)
(defvar *remaining-cycles*)
(defvar *conflict-set*)
(defvar *max-cs*)
(defvar *total-cs*)
(defvar *limit-cs*)
(defvar *strategy*)
(defvar *class-list*)
(defvar *buckets*)
(defvar *limit-token* nil)
(defvar *total-wm* nil)
(defvar *max-token* nil)
(defvar *total-token* nil)
(defvar *brkpts* nil)
(defvar *phase* nil)
(defvar *break-flag* nil)
(defvar *remaining-cycles* nil)
(defvar *conflict-set* nil)
(defvar *max-cs* nil)
(defvar *total-cs* nil)
(defvar *limit-cs* nil)
(defvar *strategy* nil)
(defvar *class-list* nil)
(defvar *buckets* nil)
View
@@ -23,17 +23,17 @@
;;; External global variables
(defvar *current-token*)
(defvar *current-token* nil)
;;; Internal global variables
(defvar *alpha-data-part*)
(defvar *alpha-flag-part*)
(defvar *flag-part*)
(defvar *data-part*)
(defvar *sendtocall*)
(defvar *side*)
(defvar *alpha-data-part* nil)
(defvar *alpha-flag-part* nil)
(defvar *flag-part* nil)
(defvar *data-part* nil)
(defvar *sendtocall* nil)
(defvar *side* nil)
(proclaim '(special *c1* *c2* *c3* *c4* *c5* *c6* *c7* *c8* *c9*
*c10* *c11* *c12* *c13* *c14* *c15* *c16* *c17* *c18* *c19*
*c20* *c21* *c22* *c23* *c24* *c25* *c26* *c27* *c28* *c29*
View
@@ -24,29 +24,29 @@
;;; External global variables
(defvar *size-result-array*)
(defvar *in-rhs*)
(defvar *current-wm*)
(defvar *max-wm*)
(defvar *action-count*)
(defvar *critical*)
(defvar *size-result-array* nil)
(defvar *in-rhs* nil)
(defvar *current-wm* nil)
(defvar *max-wm* nil)
(defvar *action-count* nil)
(defvar *critical* nil)
;;; Internal global variables
(defvar *wmpart-list*)
(defvar *wm-filter*)
(defvar *wm*)
(defvar *old-wm*)
(defvar *result-array*)
(defvar *variable-memory*)
(defvar *last*)
(defvar *max-index*)
(defvar *next-index*)
(defvar *data-matched*)
(defvar *ce-variable-memory*)
(defvar *rest*)
(defvar *build-trace*)
(defvar *wmpart-list* nil)
(defvar *wm-filter* nil)
(defvar *wm* nil)
(defvar *old-wm* nil)
(defvar *result-array* nil)
(defvar *variable-memory* nil)
(defvar *last* nil)
(defvar *max-index* nil)
(defvar *next-index* nil)
(defvar *data-matched* nil)
(defvar *ce-variable-memory* nil)
(defvar *rest* nil)
(defvar *build-trace* nil)
;;;; Functions for RHS evaluation

0 comments on commit 6c4d215

Please sign in to comment.