Permalink
Browse files

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

  • Loading branch information...
1 parent d810387 commit 6c4d2158128ecb0d6d9ff5b367816c610d4fd7b8 @nakrakiiya nakrakiiya committed Mar 25, 2013
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.