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-25 07:33:47.000000000 +0200
+++ new-smoke/src/clos.lisp 2014-10-25 07:33:47.000000000 +0200
@@ -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)))))