Index: /trunk/source/compiler/X86/x862.lisp
===================================================================
--- /trunk/source/compiler/X86/x862.lisp	(revision 14336)
+++ /trunk/source/compiler/X86/x862.lisp	(revision 14337)
@@ -10354,4 +10354,17 @@
                              (list nil (list arg))))))))
 
+(defx862 x862-%ilognot %ilognot (seg vreg xfer form)
+  (ensuring-node-target (target vreg)
+    (! %ilognot target (x862-one-targeted-reg-form seg form target)))
+  (^))
+
+(defx862 x862-ash ash (seg vreg xfer num amt)
+  (or (acode-optimize-ash seg vreg xfer num amt *x862-trust-declarations*)
+      (progn
+        (x862-two-targeted-reg-forms seg num ($ *x862-arg-y*) amt ($ *x862-arg-z*))
+        (x862-fixed-call-builtin seg vreg xfer nil (subprim-name->offset '.SPbuiltin-ash)))))
+      
+    
+
 
 (defx862 x862-%new-ptr %new-ptr (seg vreg xfer size clear-p )
@@ -10364,16 +10377,7 @@
                 nil))
 
-;------
-
-#+not-yet
-(progn
-
-
-;;;Make a gcable macptr.
-
-
-
-
-)
+
+
+
 
 #-x86-target