Re: clisp-cvs Digest, Vol 26, Issue 3

[Yaroslav K. <kav...@je...>]

Sam Steingold wrote:
> yuk.
> I think "make clean" is in order...
> 

Full rebuild: build is ok, tests - no:

$ cat /home/src/clisp/clisp/build-full-with-jitc/tests/*.erg
Form: (DEF-C-VAR ERRNO (:TYPE INT) (:LIBRARY :DEFAULT))
CORRECT: ERRNO
CLISP  : ERROR
FFI::FIND-FOREIGN-VARIABLE: no dynamic object named "errno" in library 
:DEFAULT
OUT:
"[SIMPLE-ERROR]: FFI::FIND-FOREIGN-VARIABLE: no dynamic object named 
\"errno\" in library :DEFAULT
"

Your test:

[1]> (loop :for e :from 0 :to 100
:do (print (list e (os:errno e) (os:strerror)))
:finally (os:errno nil))

(0 NIL "No error")
(1 :EPERM "Operation not permitted")
(2 :ENOENT "No such file or directory")
(3 :ESRCH "No such process")
(4 :EINTR "Interrupted function call")
(5 :EIO "Input/output error")
(6 :ENXIO "No such device or address")
(7 :E2BIG "Arg list too long")
(8 :ENOEXEC "Exec format error")
(9 :EBADF "Bad file descriptor")
(10 :ECHILD "No child processes")
(11 :EAGAIN "Resource temporarily unavailable")
(12 :ENOMEM "Not enough space")
(13 :EACCES "Permission denied")
(14 :EFAULT "Bad address")
(15 15 "Unknown error")
(16 :EBUSY "Resource device")
(17 :EEXIST "File exists")
(18 :EXDEV "Improper link")
(19 :ENODEV "No such device")
(20 :ENOTDIR "Not a directory")
(21 :EISDIR "Is a directory")
(22 :EINVAL "Invalid argument")
(23 :ENFILE "Too many open files in system")
(24 :EMFILE "Too many open files")
(25 :ENOTTY "Inappropriate I/O control operation")
(26 26 "Unknown error")
(27 :EFBIG "File too large")
(28 :ENOSPC "No space left on device")
(29 :ESPIPE "Invalid seek")
(30 :EROFS "Read-only file system")
(31 :EMLINK "Too many links")
(32 :EPIPE "Broken pipe")
(33 :EDOM "Domain error")
(34 :ERANGE "Result too large")
(35 35 "Unknown error")
(36 :EDEADLK "Resource deadlock avoided")
(37 37 "Unknown error")
(38 :ENAMETOOLONG "Filename too long")
(39 :ENOLCK "No locks available")
(40 :ENOSYS "Function not implemented")
(41 :ENOTEMPTY "Directory not empty")
(42 :EILSEQ "Illegal byte sequence")
(43 43 "Unknown error")
(44 44 "Unknown error")
(45 45 "Unknown error")
(46 46 "Unknown error")
(47 47 "Unknown error")
(48 48 "Unknown error")
(49 49 "Unknown error")
(50 50 "Unknown error")
(51 51 "Unknown error")
(52 52 "Unknown error")
(53 53 "Unknown error")
(54 54 "Unknown error")
(55 55 "Unknown error")
(56 56 "Unknown error")
(57 57 "Unknown error")
(58 58 "Unknown error")
(59 59 "Unknown error")
(60 60 "Unknown error")
(61 61 "Unknown error")
(62 62 "Unknown error")
(63 63 "Unknown error")
(64 64 "Unknown error")
(65 65 "Unknown error")
(66 66 "Unknown error")
(67 67 "Unknown error")
(68 68 "Unknown error")
(69 69 "Unknown error")
(70 70 "Unknown error")
(71 71 "Unknown error")
(72 72 "Unknown error")
(73 73 "Unknown error")
(74 74 "Unknown error")
(75 75 "Unknown error")
(76 76 "Unknown error")
(77 77 "Unknown error")
(78 78 "Unknown error")
(79 79 "Unknown error")
(80 80 "Unknown error")
(81 81 "Unknown error")
(82 82 "Unknown error")
(83 83 "Unknown error")
(84 84 "Unknown error")
(85 85 "Unknown error")
(86 86 "Unknown error")
(87 87 "Unknown error")
(88 88 "Unknown error")
(89 89 "Unknown error")
(90 90 "Unknown error")
(91 91 "Unknown error")
(92 92 "Unknown error")
(93 93 "Unknown error")
(94 94 "Unknown error")
(95 95 "Unknown error")
(96 96 "Unknown error")
(97 97 "Unknown error")
(98 98 "Unknown error")
(99 99 "Unknown error")
(100 100 "Unknown error")
NIL
[2]>

-- 
WBR, Yaroslav Kavenchuk.