Changeset 7932

Timestamp:

Dec 22, 2007, 5:42:05 AM (17 years ago)

Author:

gz

Message:

fix logical error in univeral argument handling

File:

• branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp (modified) (1 diff)

branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp

@@ -441 +441 @@
   (when (ps-result ps)
     (* (ps-sign ps)
-       (expt (value universal-argument-default) (ps-multiplier ps))
        (if (ps-read-some-digit-p ps)
          (ps-result ps)
-         1))))
+         (expt (value universal-argument-default) (ps-multiplier ps))))))
 
 (defun note-prefix-argument-set (ps)
   (assert (ps-result ps))
   (setf (ps-set-p ps) t)
-  #+GZ (log-debug "Note prefix argument set: ~s" ps)
   (message (with-output-to-string (s)
              (dotimes (i (ps-multiplier ps))