Changeset 12957

Timestamp:

Oct 9, 2009, 11:29:22 AM (15 years ago)

Author:

gz

Message:

windows (r12524)

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/macros.lisp

@@ -2592 +2592 @@
           (setq woi (cadr args) args (cddr args))
           (if (eq (car args) :discard-stack-args)
-            (setq discard-stack-args t args (cdr args))
+            (setq discard-stack-args (eq (backend-target-os *target-backend*) :win32) args (cdr args))
             (if (eq (car args) :error-return)
               (setq error-return