[Wisp-cvs] wisp/src essence.c,1.203,1.204 wordlist.txt,1.568,1.569

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv25842/src

Modified Files:
	essence.c wordlist.txt 
Log Message:
Dropped the obsolete |protect-slots| procedure.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.203
retrieving revision 1.204
diff -u -d -r1.203 -r1.204
--- essence.c	18 Sep 2002 20:54:23 -0000	1.203
+++ essence.c	18 Sep 2002 20:55:54 -0000	1.204
@@ -677,385 +677,384 @@
 void*Y232[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,t,Q,mlt,s,V 1,mla,l,V 0,l,V 3,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 74,mla,l,V 2,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 2,mla,l,V 0,l,V 3,q,mla,l,V 2,q,mha,l,V 1,l,V 118,tc,V 2,c,q,dig,V 0,jif,V 33,dig,V 0,q,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,mha,l,V 1,l,V 80,tc,V 2,c,mlt,s,V 1,ds,V 1,j,V 0,ds,V 1,j,V -93,mla,l,V 1,ds,V 1,r};
 void*Y233[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 3,q,mha,l0,q,qi,W(vector_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r};
 void*Y234[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 5,jif,V 15,qi,W(frozen),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 87,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 0,l,V 3,q,dig,V 4,q,dig,V 3,q,mha,l0,q,qi,W(lookup_slot),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 13,qi,W(unknown),dig,V 3,q,mha,l,V 1,l,V 111,tc,V 2,c,q,qi,F,mha,l,V 1,l,V 118,tc,V -3,c,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -94,t,Z,ds,V 2,r};
-void*Y235[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 5,jif,V 15,qi,W(frozen),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,dig,V 0,mlt,s,V 1,mla,l,V 1,xri,Q,jiz,V 101,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,mla,l,V 0,l,V 3,q,dig,V 4,q,dig,V 3,q,mha,l0,q,qi,W(lookup_slot),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 13,qi,W(unknown),dig,V 3,q,mha,l,V 1,l,V 111,tc,V 2,c,q,mha,l,V 1,l,V 118,tc,V 2,c,q,qi,F,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -108,t,Z,ds,V 2,r};
-void*Y236[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mlt,s,V 0,qi,&BCL0,li,rvec+11,tc,V 2,c,mla,l,V 0,l,V 3,l,V 1,mat,t,V 2,addat,mta,q,mha,l,V 1,l,V 142,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,dig,V 1,pt,s,V 1,t,V 10,s0,mla,l,V 1,ds,V 1,r};
-void*Y237[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,jif,V 44,dig,V 0,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y238[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,dig,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,jinf,V 15,qi,W(instance_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,dig,V 0,l,V 1,ds,V 1,r};
-void*Y239[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,jif,V 68,dig,V 0,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,xors,jiz,V 47,dig,V 0,q,mha,l,V 2,l,V 1,xors,jinz,V 4,t,T,j,V 2,t,F,jinf,V 25,dig,V 0,q,mha,l0,q,qi,W(superclass),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 2,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r,t,F,ds,V 1,r};
-void*Y240[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 23,mla,l,V 1,q,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 3,t,T,r,t,F,r,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,jinf,V 19,mla,l,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 31,t,Q,mlt,s,V 2,t,B 239,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mla,l,V 0,q,mla,l,V 2,tc,V 1,c,r,t,F,r};
-void*Y241[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,F,s,V 1,mla,l,V 0,q,dig,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,jinf,V 15,qi,W(vector_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 60,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 125,tc,V 1,c,jinf,V 15,qi,W(symbol_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,j,V -78,ds,V 1,mla,l,V 1,jif,V 32,mla,l,V 1,q,mha,l0,q,qi,W(class2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 0,q,mha,l,V 1,l,V 159,tc,V 2,c,j,V 17,mla,l,V 0,q,mha,l0,q,qi,W(vector_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mha,l,V 1,l,V 103,tc,V 0,c,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 173,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 118,tc,V 2,c,q,dig,V 0,q,mha,l,V 1,l,V 81,tc,V 1,c,jif,V 12,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,j,V 2,dig,V 0,q,dig,V 0,jif,V 23,dig,V 3,q,dig,V 1,q,qi,F,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,j,V 2,t,F,jif,V 15,qi,W(duplicate_slot_name),dig,V 2,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 65,dig,V 1,q,mha,l,V 1,l,V 125,tc,V 1,c,jif,V 31,mla,l,V 0,q,dig,V 3,q,dig,V 3,q,qi,T,mha,l,V 1,l,V 99,tc,V 2,c,q,mha,l,V 1,l,V 118,tc,V -3,c,j,V 0,dig,V 3,q,dig,V 1,q,qi,T,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,ds,V 1,ds,V 1,j,V -191,ds,V 1,ds,V 1,mla,l,V 1,jif,V 41,mla,l,V 1,q,dig,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 15,qi,W(class_huh),dig,V 1,q,mha,l,V 1,l,V 111,tc,V 2,c,j,V 0,ds,V 1,j,V 0,mha,l0,q,qi,W(LTclassGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,qi,F,mla,l,V 1,jif,V 7,mla,l,V 1,l,V 4,j,V 2,t,Q,q,mla,l,V 0,q,mla,l,V 1,q,mla,l,V 2,pt,st,V 2,pt,st,V 3,pt,st,V 4,pt,st,V 5,mla,l,V 2,r};
-void*Y242[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,jif,V 39,dig,V 0,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
[...1025 lines suppressed...]
 
 struct cons conses [] = {
@@ -2080,13 +2078,13 @@
 [328]{car:CH('C'),cdr:BC 327},
 [329]{car:CH('A'),cdr:BC 328},
 [330]{car:CH('e'),cdr:BC 329},
-[331]{car:B 683,cdr:Q},
-[332]{car:B 682,cdr:BC 331},
-[333]{car:B 684,cdr:Q},
+[331]{car:B 682,cdr:Q},
+[332]{car:B 681,cdr:BC 331},
+[333]{car:B 683,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 686;
+builtin_root = B 685;
 
 /* essence.c ends here */

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.568
retrieving revision 1.569
diff -u -d -r1.568 -r1.569
--- wordlist.txt	13 Sep 2002 16:35:31 -0000	1.568
+++ wordlist.txt	18 Sep 2002 20:56:18 -0000	1.569
@@ -129,23 +129,23 @@
 premature-eof prep preprocess preprocessed-source? preprocessing-error
 prevent-invalid-call print procedure->macro procedure-remark procedure?
 process-simple-quasiquote process-unquote-splicing processor-type
-prohibited protect-slots pt q qc qh qi ql qn qt quasiquote
-quasiquote-cons quote quotient r raise raise-unreadable-port
-raise-unseekable-port raise-unwritable-port range rassoc rassq rassv
-rational rational->cons rational->string rational? raw-file-seeker
-raw-input-file-reader raw-output-file-writer raw-read-string raw-ready?
-raw-seek raw-write-string rdev read read-all=> read-char
-read-char-sequence read-character-body read-directory
-read-external-string read-line read-only read-string read-until-dollar
-read-whole-file readable real-use real? rec record-constructor
-record-hook-name? record-type-discriminator record-type-referrer
-record-type-slot-count record-type? reduce-index ref reg regex
-regex-template regular regular-env relative remainder rename return
-reverse rolocal roslot round rubout run-ewisp-file run-file rvl s s0
-sbyte? sc scoped second seek semideque semideque->list semideque-bottom
-semideque-empty semideque-insert! semideque-pop! semideque-push!
-semideque-top semiraw-files serial set! setpgid setsid seventh sharp
-short sig signal signal-not signal-system-error signal-unreadable-port
+prohibited pt q qc qh qi ql qn qt quasiquote quasiquote-cons quote
+quotient r raise raise-unreadable-port raise-unseekable-port
+raise-unwritable-port range rassoc rassq rassv rational rational->cons
+rational->string rational? raw-file-seeker raw-input-file-reader
+raw-output-file-writer raw-read-string raw-ready? raw-seek
+raw-write-string rdev read read-all=> read-char read-char-sequence
+read-character-body read-directory read-external-string read-line
+read-only read-string read-until-dollar read-whole-file readable
+real-use real? rec record-constructor record-hook-name?
+record-type-discriminator record-type-referrer record-type-slot-count
+record-type? reduce-index ref reg regex regex-template regular
+regular-env relative remainder rename return reverse rolocal roslot
+round rubout run-ewisp-file run-file rvl s s0 sbyte? sc scoped second
+seek semideque semideque->list semideque-bottom semideque-empty
+semideque-insert! semideque-pop! semideque-push! semideque-top
+semiraw-files serial set! setpgid setsid seventh sharp short sig signal
+signal-not signal-system-error signal-unreadable-port
 signal-unseekable-port signal-unwritable-port sixth size size-of slice
 slot slots socket socketcall space splicing split-by-char st st_mode
 stack start state-version stop strict-infix string string->c16string