[movitz-cvs] CVS update: movitz/losp/muerte/cons.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

22 Jul 2004

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv2748
Modified Files:
    cons.lisp 
Log Message:
Use :int 61 for failing on typep list.
Date: Wed Jul 21 18:02:15 2004
Author: ffjeld
Index: movitz/losp/muerte/cons.lisp
diff -u movitz/losp/muerte/cons.lisp:1.5 movitz/losp/muerte/cons.lisp:1.6

--- movitz/losp/muerte/cons.lisp:1.5	Thu Jul 15 14:06:51 2004
+++ movitz/losp/muerte/cons.lisp	Wed Jul 21 18:02:15 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 15:25:45 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: cons.lisp,v 1.5 2004/07/15 21:06:51 ffjeld Exp $
+;;;; $Id: cons.lisp,v 1.6 2004/07/22 01:02:15 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -23,7 +23,7 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax -1) :ebx)
     (:movl (:eax 3) :eax)
     (:ret)))
@@ -33,7 +33,7 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax -1) :eax)
     (:ret)))
@@ -43,7 +43,9 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:ebx -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program ()
+	    (:movl :ebx :eax)
+	    (:int 66)))
     (:movl (:ebx -1) :eax)
     (:ret)))
@@ -52,7 +54,7 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax 3) :eax)
     (:ret)))
@@ -61,11 +63,11 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax 3) :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax 3) :eax)
     (:ret)))
@@ -74,15 +76,15 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program (not-cons) (:int 66)))
+    (:jnz '(:sub-program (not-cons) (:int 61)))
     (:movl (:eax 3) :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program (not-cons) (:int 66)))
+    (:jnz '(:sub-program (not-cons) (:int 61)))
     (:movl (:eax 3) :eax)
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program (not-cons) (:int 66)))
+    (:jnz '(:sub-program (not-cons) (:int 61)))
     (:movl (:eax 3) :eax)
     (:ret)))
@@ -92,7 +94,9 @@
   (with-inline-assembly (:returns :eax)
     (:leal (:ebx -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program ()
+	    (:movl :ebx :eax)
+	    (:int 61)))
     (:movl (:ebx 3) :eax)
     (:ret)))
@@ -104,7 +108,7 @@
     (:prefetch-nta (:eax))
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax -1) :ebx)
     (:movl (:eax 3) :eax)
     (:ret)))
@@ -115,7 +119,7 @@
     (:prefetch-nta (:eax))
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax -1) :eax)
     (:ret)))
@@ -126,7 +130,9 @@
     (:prefetch-nta (:ebx))
     (:leal (:ebx -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program ()
+	    (:movl :ebx :eax)
+	    (:int 61)))
     (:movl (:ebx -1) :eax)
     (:ret)))
@@ -136,7 +142,7 @@
     (:prefetch-nta (:eax))
     (:leal (:eax -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program () (:int 61)))
     (:movl (:eax 3) :eax)
     (:prefetch-nta (:eax))
     (:ret)))
@@ -148,7 +154,9 @@
     (:prefetch-nta (:ebx))
     (:leal (:ebx -1) :ecx)
     (:testb 3 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program ()
+	    (:movl :ebx :eax)
+	    (:int 61)))
     (:movl (:ebx 3) :eax)
     (:prefetch-nta (:eax))
     (:ret)))
@@ -159,7 +167,9 @@
     (:compile-form (:result-mode :eax) value)
     (:leal (:ebx -1) :ecx)
     (:testb 7 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program ()
+	    (:movl :ebx :eax)
+	    (:int 61)))
     (:movl :eax (:ebx -1))))
(defun (setf cdr) (value cell)
@@ -168,7 +178,9 @@
     (:compile-form (:result-mode :eax) value)
     (:leal (:ebx -1) :ecx)
     (:testb 7 :cl)
-    (:jnz '(:sub-program () (:int 66)))
+    (:jnz '(:sub-program ()
+	    (:movl :ebx :eax)
+	    (:int 61)))
     (:movl :eax (:ebx 3))))

    