Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 8585)
+++ /trunk/source/compiler/nx1.lisp	(revision 8586)
@@ -255,5 +255,5 @@
            body)))))
 
-(defnx1 nx1-%new-ptr (%new-ptr) (&whole whole size clear-p)
+(defnx1 nx1-%new-ptr (%new-ptr) (&whole whole size &optional clear-p)
   (make-acode (%nx1-operator %new-ptr) (nx1-form size) (nx1-form clear-p)))