Browse code
FIX: UNBOUND-VARIABLE when loading demo/auto.ops using CCL.
Yang Xiaofeng authored on 25/03/2013 14:04:33Showing 7 changed files
- src/ops-backup.lisp
- src/ops-compile.lisp
- src/ops-globals.lisp
- src/ops-io.lisp
- src/ops-main.lisp
- src/ops-match.lisp
- src/ops-rhs.lisp
| ... | ... |
@@ -21,12 +21,12 @@ |
| 21 | 21 |
|
| 22 | 22 |
;;; Internal Global Variables |
| 23 | 23 |
|
| 24 |
-(defvar *refracts*) |
|
| 25 |
-(defvar *record*) |
|
| 26 |
-(defvar *record-array*) |
|
| 27 |
-(defvar *recording*) |
|
| 28 |
-(defvar *max-record-index*) |
|
| 29 |
-(defvar *record-index*) |
|
| 24 |
+(defvar *refracts* nil) |
|
| 25 |
+(defvar *record* nil) |
|
| 26 |
+(defvar *record-array* nil) |
|
| 27 |
+(defvar *recording* nil) |
|
| 28 |
+(defvar *max-record-index* nil) |
|
| 29 |
+(defvar *record-index* nil) |
|
| 30 | 30 |
|
| 31 | 31 |
|
| 32 | 32 |
|
| ... | ... |
@@ -23,27 +23,27 @@ |
| 23 | 23 |
|
| 24 | 24 |
;;; External global variables |
| 25 | 25 |
|
| 26 |
-(defvar *real-cnt*) |
|
| 27 |
-(defvar *virtual-cnt*) |
|
| 28 |
-(defvar *last-node*) |
|
| 29 |
-(defvar *first-node*) |
|
| 30 |
-(defvar *pcount*) |
|
| 26 |
+(defvar *real-cnt* nil) |
|
| 27 |
+(defvar *virtual-cnt* nil) |
|
| 28 |
+(defvar *last-node* nil) |
|
| 29 |
+(defvar *first-node* nil) |
|
| 30 |
+(defvar *pcount* nil) |
|
| 31 | 31 |
|
| 32 | 32 |
|
| 33 | 33 |
;;; Internal global variables |
| 34 | 34 |
|
| 35 |
-(defvar *matrix*) |
|
| 36 |
-(defvar *curcond*) |
|
| 37 |
-(defvar *feature-count*) |
|
| 38 |
-(defvar *ce-count*) |
|
| 39 |
-(defvar *vars*) |
|
| 40 |
-(defvar *ce-vars*) |
|
| 41 |
-(defvar *rhs-bound-vars*) |
|
| 42 |
-(defvar *rhs-bound-ce-vars*) |
|
| 43 |
-(defvar *last-branch*) |
|
| 44 |
-(defvar *subnum*) |
|
| 45 |
-(defvar *cur-vars*) |
|
| 46 |
-(defvar *action-type*) |
|
| 35 |
+(defvar *matrix* nil) |
|
| 36 |
+(defvar *curcond* nil) |
|
| 37 |
+(defvar *feature-count* nil) |
|
| 38 |
+(defvar *ce-count* nil) |
|
| 39 |
+(defvar *vars* nil) |
|
| 40 |
+(defvar *ce-vars* nil) |
|
| 41 |
+(defvar *rhs-bound-vars* nil) |
|
| 42 |
+(defvar *rhs-bound-ce-vars* nil) |
|
| 43 |
+(defvar *last-branch* nil) |
|
| 44 |
+(defvar *subnum* nil) |
|
| 45 |
+(defvar *cur-vars* nil) |
|
| 46 |
+(defvar *action-type* nil) |
|
| 47 | 47 |
|
| 48 | 48 |
|
| 49 | 49 |
|
| ... | ... |
@@ -18,11 +18,11 @@ |
| 18 | 18 |
|
| 19 | 19 |
;;; Global variables also used by OPS modules. |
| 20 | 20 |
|
| 21 |
-(defvar *halt-flag*) |
|
| 22 |
-(defvar *cycle-count*) |
|
| 23 |
-(defvar *p-name*) |
|
| 24 |
-(defvar *ptrace*) |
|
| 25 |
-(defvar *wtrace*) |
|
| 21 |
+(defvar *halt-flag* nil) |
|
| 22 |
+(defvar *cycle-count* nil) |
|
| 23 |
+(defvar *p-name* nil) |
|
| 24 |
+(defvar *ptrace* nil) |
|
| 25 |
+(defvar *wtrace* nil) |
|
| 26 | 26 |
|
| 27 | 27 |
;;; Hash Tables. |
| 28 | 28 |
|
| ... | ... |
@@ -22,11 +22,11 @@ |
| 22 | 22 |
|
| 23 | 23 |
;;; Internal global variables. |
| 24 | 24 |
|
| 25 |
-(defvar *write-file*) |
|
| 26 |
-(defvar *trace-file*) |
|
| 27 |
-(defvar *accept-file*) |
|
| 28 |
-(defvar *ppline*) |
|
| 29 |
-(defvar *filters*) |
|
| 25 |
+(defvar *write-file* nil) |
|
| 26 |
+(defvar *trace-file* nil) |
|
| 27 |
+(defvar *accept-file* nil) |
|
| 28 |
+(defvar *ppline* nil) |
|
| 29 |
+(defvar *filters* nil) |
|
| 30 | 30 |
|
| 31 | 31 |
|
| 32 | 32 |
|
| ... | ... |
@@ -24,21 +24,21 @@ |
| 24 | 24 |
|
| 25 | 25 |
;;; Global variables used in this module only. |
| 26 | 26 |
|
| 27 |
-(defvar *limit-token*) |
|
| 28 |
-(defvar *total-wm*) |
|
| 29 |
-(defvar *max-token*) |
|
| 30 |
-(defvar *total-token*) |
|
| 31 |
-(defvar *brkpts*) |
|
| 32 |
-(defvar *phase*) |
|
| 33 |
-(defvar *break-flag*) |
|
| 34 |
-(defvar *remaining-cycles*) |
|
| 35 |
-(defvar *conflict-set*) |
|
| 36 |
-(defvar *max-cs*) |
|
| 37 |
-(defvar *total-cs*) |
|
| 38 |
-(defvar *limit-cs*) |
|
| 39 |
-(defvar *strategy*) |
|
| 40 |
-(defvar *class-list*) |
|
| 41 |
-(defvar *buckets*) |
|
| 27 |
+(defvar *limit-token* nil) |
|
| 28 |
+(defvar *total-wm* nil) |
|
| 29 |
+(defvar *max-token* nil) |
|
| 30 |
+(defvar *total-token* nil) |
|
| 31 |
+(defvar *brkpts* nil) |
|
| 32 |
+(defvar *phase* nil) |
|
| 33 |
+(defvar *break-flag* nil) |
|
| 34 |
+(defvar *remaining-cycles* nil) |
|
| 35 |
+(defvar *conflict-set* nil) |
|
| 36 |
+(defvar *max-cs* nil) |
|
| 37 |
+(defvar *total-cs* nil) |
|
| 38 |
+(defvar *limit-cs* nil) |
|
| 39 |
+(defvar *strategy* nil) |
|
| 40 |
+(defvar *class-list* nil) |
|
| 41 |
+(defvar *buckets* nil) |
|
| 42 | 42 |
|
| 43 | 43 |
|
| 44 | 44 |
|
| ... | ... |
@@ -23,17 +23,17 @@ |
| 23 | 23 |
|
| 24 | 24 |
;;; External global variables |
| 25 | 25 |
|
| 26 |
-(defvar *current-token*) |
|
| 26 |
+(defvar *current-token* nil) |
|
| 27 | 27 |
|
| 28 | 28 |
|
| 29 | 29 |
;;; Internal global variables |
| 30 | 30 |
|
| 31 |
-(defvar *alpha-data-part*) |
|
| 32 |
-(defvar *alpha-flag-part*) |
|
| 33 |
-(defvar *flag-part*) |
|
| 34 |
-(defvar *data-part*) |
|
| 35 |
-(defvar *sendtocall*) |
|
| 36 |
-(defvar *side*) |
|
| 31 |
+(defvar *alpha-data-part* nil) |
|
| 32 |
+(defvar *alpha-flag-part* nil) |
|
| 33 |
+(defvar *flag-part* nil) |
|
| 34 |
+(defvar *data-part* nil) |
|
| 35 |
+(defvar *sendtocall* nil) |
|
| 36 |
+(defvar *side* nil) |
|
| 37 | 37 |
(proclaim '(special *c1* *c2* *c3* *c4* *c5* *c6* *c7* *c8* *c9* |
| 38 | 38 |
*c10* *c11* *c12* *c13* *c14* *c15* *c16* *c17* *c18* *c19* |
| 39 | 39 |
*c20* *c21* *c22* *c23* *c24* *c25* *c26* *c27* *c28* *c29* |
| ... | ... |
@@ -24,29 +24,29 @@ |
| 24 | 24 |
|
| 25 | 25 |
;;; External global variables |
| 26 | 26 |
|
| 27 |
-(defvar *size-result-array*) |
|
| 28 |
-(defvar *in-rhs*) |
|
| 29 |
-(defvar *current-wm*) |
|
| 30 |
-(defvar *max-wm*) |
|
| 31 |
-(defvar *action-count*) |
|
| 32 |
-(defvar *critical*) |
|
| 27 |
+(defvar *size-result-array* nil) |
|
| 28 |
+(defvar *in-rhs* nil) |
|
| 29 |
+(defvar *current-wm* nil) |
|
| 30 |
+(defvar *max-wm* nil) |
|
| 31 |
+(defvar *action-count* nil) |
|
| 32 |
+(defvar *critical* nil) |
|
| 33 | 33 |
|
| 34 | 34 |
|
| 35 | 35 |
;;; Internal global variables |
| 36 | 36 |
|
| 37 |
-(defvar *wmpart-list*) |
|
| 38 |
-(defvar *wm-filter*) |
|
| 39 |
-(defvar *wm*) |
|
| 40 |
-(defvar *old-wm*) |
|
| 41 |
-(defvar *result-array*) |
|
| 42 |
-(defvar *variable-memory*) |
|
| 43 |
-(defvar *last*) |
|
| 44 |
-(defvar *max-index*) |
|
| 45 |
-(defvar *next-index*) |
|
| 46 |
-(defvar *data-matched*) |
|
| 47 |
-(defvar *ce-variable-memory*) |
|
| 48 |
-(defvar *rest*) |
|
| 49 |
-(defvar *build-trace*) |
|
| 37 |
+(defvar *wmpart-list* nil) |
|
| 38 |
+(defvar *wm-filter* nil) |
|
| 39 |
+(defvar *wm* nil) |
|
| 40 |
+(defvar *old-wm* nil) |
|
| 41 |
+(defvar *result-array* nil) |
|
| 42 |
+(defvar *variable-memory* nil) |
|
| 43 |
+(defvar *last* nil) |
|
| 44 |
+(defvar *max-index* nil) |
|
| 45 |
+(defvar *next-index* nil) |
|
| 46 |
+(defvar *data-matched* nil) |
|
| 47 |
+(defvar *ce-variable-memory* nil) |
|
| 48 |
+(defvar *rest* nil) |
|
| 49 |
+(defvar *build-trace* nil) |
|
| 50 | 50 |
|
| 51 | 51 |
|
| 52 | 52 |
;;;; Functions for RHS evaluation |