[Openmcl-cvs-notifications] r10875 - /trunk/source/level-1/l1-error-signal.lisp

[gb at clozure.com]

Author: gb
Date: Thu Sep 25 09:22:43 2008
New Revision: 10875

Log:
%WINDOWS-ERROR-DISP: for now, map a Windows error code to a string and
signal a SIMPLE-ERROR.

Modified:
    trunk/source/level-1/l1-error-signal.lisp

Modified: trunk/source/level-1/l1-error-signal.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-error-signal.lisp (original)
+++ trunk/source/level-1/l1-error-signal.lisp Thu Sep 25 09:22:43 2008
@@ -33,6 +33,10 @@
 (defun %errno-disp (errno &rest errargs)
   (%errno-disp-internal errno errargs (%get-frame-ptr)))
 =

+#+windows-target
+(defun %windows-error-disp (errno &rest errargs)
+  (%err-disp-common errno 0 (%windows-error-string errno) errargs (%get-fr=
ame-ptr)))
+  =

 (defun %errno-disp-internal (errno errargs frame-ptr)
   (declare (fixnum errno))
   (let* ((err-type (max (ash errno -16) 0))