Mon Jan 25 19:41:22 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Add :arg3 for make-instance SMOKE-CLASS.
diff -rN -u old-smoke/src/clos.lisp new-smoke/src/clos.lisp
--- old-smoke/src/clos.lisp	2014-10-30 08:08:18.000000000 +0100
+++ new-smoke/src/clos.lisp	2014-10-30 08:08:19.000000000 +0100
@@ -475,6 +475,7 @@
                                        (arg0 nil arg0p)
                                        (arg1 nil arg1p)
                                        (arg2 nil arg2p)
+                                       (arg3 nil arg3p)
                                        &allow-other-keys)
   "Initializes a Smoke object. Calls its constructor with the arguments supplied
 by the key :ARGS and sets the smoke binding."
@@ -489,6 +490,7 @@
         (setf (slot-value object 'pointer) 
               (call-constructor (class-of object)
                                 (cond
+                                  (arg3p (list arg0 arg1 arg2 arg3))
                                   (arg2p (list arg0 arg1 arg2))
                                   (arg1p (list arg0 arg1))
                                   (t (list arg0)))))