Changeset 7932


Ignore:
Timestamp:
Dec 22, 2007, 1:42:05 PM (12 years ago)
Author:
gz
Message:

fix logical error in univeral argument handling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp

    r7919 r7932  
    441441  (when (ps-result ps)
    442442    (* (ps-sign ps)
    443        (expt (value universal-argument-default) (ps-multiplier ps))
    444443       (if (ps-read-some-digit-p ps)
    445444         (ps-result ps)
    446          1))))
     445         (expt (value universal-argument-default) (ps-multiplier ps))))))
    447446
    448447(defun note-prefix-argument-set (ps)
    449448  (assert (ps-result ps))
    450449  (setf (ps-set-p ps) t)
    451   #+GZ (log-debug "Note prefix argument set: ~s" ps)
    452450  (message (with-output-to-string (s)
    453451             (dotimes (i (ps-multiplier ps))
Note: See TracChangeset for help on using the changeset viewer.