tests/test2.ok

   1 (not #f) => #t
   2 (not #t) => #f
   3 (not '()) => #f
   4 (not "foo") => #f
   5 (boolean? #f) => #t
   6 (boolean? #t) => #t
   7 (boolean? '()) => #f
   8 (boolean? "foo") => #f
   9 (eqv? #f "foo") => #f
  10 (eqv? #f #f) => #t
  11 (eqv? 'foo 'foo) => #t
  12 (eqv? 12345678901234567890 12345678901234567890) => #t
  13 (eqv? '(1 2) '(1 2)) => #f
  14 (eq? #f "foo") => #f
  15 (eq? #f #f) => #t
  16 (eq? 'foo 'foo) => #t
  17 (eq? 12345678901234567890 12345678901234567890) => #f
  18 (eq? '(1 2) '(1 2)) => #f
  19 (equal? #f "foo") => #f
  20 (equal? #f #f) => #t
  21 (equal? 'foo 'foo) => #t
  22 (equal? 12345678901234567890 12345678901234567890) => #t
  23 (equal? '(1 2) '(1 2)) => #t
  24 (pair? '(1 . 2)) => #t
  25 (pair? '()) => #f
  26 (pair? "foo") => #f
  27 (pair? #f) => #f
  28 (cons 1 "foo") => (1 . "foo")
  29 (car '(a . b)) => a
  30 ;;; (Argument 1) PAIR expected: (car 'a)
  31 ;;; (Argument 1) PAIR expected: (car "foo")
  32 ;;; (Argument 1) PAIR expected: (car '#(a b))
  33 (cdr '(a . b)) => b
  34 ;;; (Argument 1) PAIR expected: (cdr 'a)
  35 ;;; (Argument 1) PAIR expected: (cdr "foo")
  36 ;;; (Argument 1) PAIR expected: (cdr '#(a b))
  37 (set-car! '(a . b) 123) => (123 . b)
  38 ;;; (Argument 1) PAIR expected: (set-car! 'a 123)
  39 ;;; (Argument 1) PAIR expected: (set-car! "foo" 123)
  40 ;;; (Argument 1) PAIR expected: (set-car! '#(a b) 123)
  41 (set-cdr! '(a . b) 123) => (a . 123)
  42 ;;; (Argument 1) PAIR expected: (set-cdr! 'a 123)
  43 ;;; (Argument 1) PAIR expected: (set-cdr! "foo" 123)
  44 ;;; (Argument 1) PAIR expected: (set-cdr! '#(a b) 123)
  45 (caar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => ((a . b) c . d)
  46 (caar '(((a . b) c . d) (e . f) g . h)) => (a . b)
  47 (caar '((a . b) c . d)) => a
  48 ;;; (Argument 1) PAIR expected: (caar '(a . b))
  49 ;;; (Argument 1) PAIR expected: (caar 'a)
  50 (cadr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => ((i . j) k . l)
  51 (cadr '(((a . b) c . d) (e . f) g . h)) => (e . f)
  52 (cadr '((a . b) c . d)) => c
  53 ;;; (Argument 1) PAIR expected: (cadr '(a . b))
  54 ;;; (Argument 1) PAIR expected: (cadr 'a)
  55 (cdar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => ((e . f) g . h)
  56 (cdar '(((a . b) c . d) (e . f) g . h)) => (c . d)
  57 (cdar '((a . b) c . d)) => b
  58 ;;; (Argument 1) PAIR expected: (cdar '(a . b))
  59 ;;; (Argument 1) PAIR expected: (cdar 'a)
  60 (cddr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => ((m . n) o . p)
  61 (cddr '(((a . b) c . d) (e . f) g . h)) => (g . h)
  62 (cddr '((a . b) c . d)) => d
  63 ;;; (Argument 1) PAIR expected: (cddr '(a . b))
  64 ;;; (Argument 1) PAIR expected: (cddr 'a)
  65 (caaar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => (a . b)
  66 (caaar '(((a . b) c . d) (e . f) g . h)) => a
  67 ;;; (Argument 1) PAIR expected: (caaar '((a . b) c . d))
  68 ;;; (Argument 1) PAIR expected: (caaar '(a . b))
  69 ;;; (Argument 1) PAIR expected: (caaar 'a)
  70 (caadr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => (i . j)
  71 (caadr '(((a . b) c . d) (e . f) g . h)) => e
  72 ;;; (Argument 1) PAIR expected: (caadr '((a . b) c . d))
  73 ;;; (Argument 1) PAIR expected: (caadr '(a . b))
  74 ;;; (Argument 1) PAIR expected: (caadr 'a)
  75 (cddar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => (g . h)
  76 (cddar '(((a . b) c . d) (e . f) g . h)) => d
  77 ;;; (Argument 1) PAIR expected: (cddar '((a . b) c . d))
  78 ;;; (Argument 1) PAIR expected: (cddar '(a . b))
  79 ;;; (Argument 1) PAIR expected: (cddar 'a)
  80 (cdddr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => (o . p)
  81 (cdddr '(((a . b) c . d) (e . f) g . h)) => h
  82 ;;; (Argument 1) PAIR expected: (cdddr '((a . b) c . d))
  83 ;;; (Argument 1) PAIR expected: (cdddr '(a . b))
  84 ;;; (Argument 1) PAIR expected: (cdddr 'a)
  85 (caaaar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => a
  86 ;;; (Argument 1) PAIR expected: (caaaar '(((a . b) c . d) (e . f) g . h))
  87 ;;; (Argument 1) PAIR expected: (caaaar '((a . b) c . d))
  88 ;;; (Argument 1) PAIR expected: (caaaar '(a . b))
  89 ;;; (Argument 1) PAIR expected: (caaaar 'a)
  90 (caaadr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => i
  91 ;;; (Argument 1) PAIR expected: (caaadr '(((a . b) c . d) (e . f) g . h))
  92 ;;; (Argument 1) PAIR expected: (caaadr '((a . b) c . d))
  93 ;;; (Argument 1) PAIR expected: (caaadr '(a . b))
  94 ;;; (Argument 1) PAIR expected: (caaadr 'a)
  95 (caddar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => g
  96 ;;; (Argument 1) PAIR expected: (caddar '(((a . b) c . d) (e . f) g . h))
  97 ;;; (Argument 1) PAIR expected: (caddar '((a . b) c . d))
  98 ;;; (Argument 1) PAIR expected: (caddar '(a . b))
  99 ;;; (Argument 1) PAIR expected: (caddar 'a)
 100 (cadddr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => o
 101 ;;; (Argument 1) PAIR expected: (cadddr '(((a . b) c . d) (e . f) g . h))
 102 ;;; (Argument 1) PAIR expected: (cadddr '((a . b) c . d))
 103 ;;; (Argument 1) PAIR expected: (cadddr '(a . b))
 104 ;;; (Argument 1) PAIR expected: (cadddr 'a)
 105 (cdaaar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => b
 106 ;;; (Argument 1) PAIR expected: (cdaaar '(((a . b) c . d) (e . f) g . h))
 107 ;;; (Argument 1) PAIR expected: (cdaaar '((a . b) c . d))
 108 ;;; (Argument 1) PAIR expected: (cdaaar '(a . b))
 109 ;;; (Argument 1) PAIR expected: (cdaaar 'a)
 110 (cdaadr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => j
 111 ;;; (Argument 1) PAIR expected: (cdaadr '(((a . b) c . d) (e . f) g . h))
 112 ;;; (Argument 1) PAIR expected: (cdaadr '((a . b) c . d))
 113 ;;; (Argument 1) PAIR expected: (cdaadr '(a . b))
 114 ;;; (Argument 1) PAIR expected: (cdaadr 'a)
 115 (cdddar '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => h
 116 ;;; (Argument 1) PAIR expected: (cdddar '(((a . b) c . d) (e . f) g . h))
 117 ;;; (Argument 1) PAIR expected: (cdddar '((a . b) c . d))
 118 ;;; (Argument 1) PAIR expected: (cdddar '(a . b))
 119 ;;; (Argument 1) PAIR expected: (cdddar 'a)
 120 (cddddr '((((a . b) c . d) (e . f) g . h) ((i . j) k . l) (m . n) o . p)) => p
 121 ;;; (Argument 1) PAIR expected: (cddddr '(((a . b) c . d) (e . f) g . h))
 122 ;;; (Argument 1) PAIR expected: (cddddr '((a . b) c . d))
 123 ;;; (Argument 1) PAIR expected: (cddddr '(a . b))
 124 ;;; (Argument 1) PAIR expected: (cddddr 'a)
 125 (null? '()) => #t
 126 (null? '(1 . 2)) => #f
 127 (null? "foo") => #f
 128 (null? #f) => #f
 129 (list? '()) => #t
 130 (list? '(1 . 2)) => #f
 131 (list? '(1 2)) => #t
 132 (list? "foo") => #f
 133 (list? #f) => #f
 134 (list) => ()
 135 (list 1) => (1)
 136 (list 1 2) => (1 2)
 137 (length '()) => 0
 138 (length '(1 2 3)) => 3
 139 ;;; (Argument 1) LIST expected: (length '(1 2 . 3))
 140 ;;; (Argument 1) LIST expected: (length "foo")
 141 (append) => ()
 142 (append #f) => #f
 143 (append '() #f) => #f
 144 (append '(1 2) #f) => (1 2 . #f)
 145 ;;; (Argument 1) LIST expected: (append '(1 2 . "foo") #f)
 146 (append '() '() #f) => #f
 147 (append '() '(1 2) #f) => (1 2 . #f)
 148 ;;; (Argument 2) LIST expected: (append '() '(1 2 . "foo") #f)
 149 (append '(1 2) '() #f) => (1 2 . #f)
 150 ;;; (Argument 1) LIST expected: (append '(1 2 . "foo") '() #f)
 151 (append '(1 2) '(3 4) #f) => (1 2 3 4 . #f)
 152 (append '() '() '() #f) => #f
 153 (append '(1 2) '(3 4) '(5 6) #f) => (1 2 3 4 5 6 . #f)
 154 (reverse '()) => ()
 155 (reverse '(1 2 3)) => (3 2 1)
 156 ;;; (Argument 1) LIST expected: (reverse '(1 2 . 3))
 157 ;;; (Argument 1) LIST expected: (reverse "foo")
 158 (list-tail '() 0) => ()
 159 (list-tail '(1 2 . 3) 1) => (2 . 3)
 160 ;;; (Argument 1) PAIR expected: (list-tail '(1 2) 3)
 161 ;;; (Argument 1) PAIR expected: (list-tail "foo" 1)
 162 ;;; (Argument 1) PAIR expected: (list-ref '() 0)
 163 (list-ref '(1 2 . 3) 1) => 2
 164 ;;; (Argument 1) PAIR expected: (list-ref '(1 2) 3)
 165 ;;; (Argument 1) PAIR expected: (list-ref "foo" 1)
 166 (memq 123 '(a b c)) => #f
 167 (memq #f '(a #f b)) => (#f b)
 168 (memq 'foo '(a foo b)) => (foo b)
 169 (memq 12345678901234567890 '(a 12345678901234567890 b)) => #f
 170 (memq '(1 2) '(a (1 2) b)) => #f
 171 (memq 123 '()) => #f
 172 ;;; (Argument 2) LIST expected: (memq 123 "foo")
 173 ;;; (Argument 2) LIST expected: (memq 123 '(a b . "foo"))
 174 (memv 123 '(a b c)) => #f
 175 (memv #f '(a #f b)) => (#f b)
 176 (memv 'foo '(a foo b)) => (foo b)
 177 (memv 12345678901234567890 '(a 12345678901234567890 b)) => (12345678901234567890 b)
 178 (memv '(1 2) '(a (1 2) b)) => #f
 179 (memv 123 '()) => #f
 180 ;;; (Argument 2) LIST expected: (memv 123 "foo")
 181 ;;; (Argument 2) LIST expected: (memv 123 '(a b . "foo"))
 182 (member 123 '(a b c)) => #f
 183 (member #f '(a #f b)) => (#f b)
 184 (member 'foo '(a foo b)) => (foo b)
 185 (member 12345678901234567890 '(a 12345678901234567890 b)) => (12345678901234567890 b)
 186 (member '(1 2) '(a (1 2) b)) => ((1 2) b)
 187 (member 123 '()) => #f
 188 ;;; (Argument 2) LIST expected: (member 123 "foo")
 189 ;;; (Argument 2) LIST expected: (member 123 '(a b . "foo"))
 190 (assq 123 '((a . 1) (b . 2) (c . 3))) => #f
 191 (assq #f '((a . 1) (#f . 2) (b . 3))) => (#f . 2)
 192 (assq 'foo '((a . 1) (foo . 2) (b . 3))) => (foo . 2)
 193 (assq 12345678901234567890 '((a . 1) (12345678901234567890 . 2) (b . 3))) => #f
 194 (assq '(1 2) '((a . 1) ((1 2) . 2) (b . 3))) => #f
 195 (assq 123 '()) => #f
 196 ;;; (Argument 2) LIST expected: (assq 123 "foo")
 197 ;;; (Argument 2) LIST expected: (assq 123 '((a . 1) (b . 2) . "foo"))
 198 ;;; (Argument 2) PAIR LIST expected: (assq 123 '((a . 1) b (c . 3)))
 199 (assv 123 '((a . 1) (b . 2) (c . 3))) => #f
 200 (assv #f '((a . 1) (#f . 2) (b . 3))) => (#f . 2)
 201 (assv 'foo '((a . 1) (foo . 2) (b . 3))) => (foo . 2)
 202 (assv 12345678901234567890 '((a . 1) (12345678901234567890 . 2) (b . 3))) => (12345678901234567890 . 2)
 203 (assv '(1 2) '((a . 1) ((1 2) . 2) (b . 3))) => #f
 204 (assv 123 '()) => #f
 205 ;;; (Argument 2) LIST expected: (assv 123 "foo")
 206 ;;; (Argument 2) LIST expected: (assv 123 '((a . 1) (b . 2) . "foo"))
 207 ;;; (Argument 2) PAIR LIST expected: (assv 123 '((a . 1) b (c . 3)))
 208 (assoc 123 '((a . 1) (b . 2) (c . 3))) => #f
 209 (assoc #f '((a . 1) (#f . 2) (b . 3))) => (#f . 2)
 210 (assoc 'foo '((a . 1) (foo . 2) (b . 3))) => (foo . 2)
 211 (assoc 12345678901234567890 '((a . 1) (12345678901234567890 . 2) (b . 3))) => (12345678901234567890 . 2)
 212 (assoc '(1 2) '((a . 1) ((1 2) . 2) (b . 3))) => ((1 2) . 2)
 213 (assoc 123 '()) => #f
 214 ;;; (Argument 2) LIST expected: (assoc 123 "foo")
 215 ;;; (Argument 2) LIST expected: (assoc 123 '((a . 1) (b . 2) . "foo"))
 216 ;;; (Argument 2) PAIR LIST expected: (assoc 123 '((a . 1) b (c . 3)))
 217 (symbol? 'foo) => #t
 218 (symbol? #f) => #f
 219 (symbol? '()) => #f
 220 (symbol? "foo") => #f
 221 (symbol->string 'foo) => "foo"
 222 ;;; (Argument 1) SYMBOL expected: (symbol->string "foo")
 223 (string->symbol "foo") => foo
 224 ;;; (Argument 1) STRING expected: (string->symbol 'foo)
 225 (number? 1) => #t
 226 (number? 1/2) => #t
 227 (number? 1.5) => #t
 228 (number? +i) => #t
 229 (number? #f) => #f
 230 (complex? 1) => #t
 231 (complex? 1/2) => #t
 232 (complex? 1.5) => #t
 233 (complex? +i) => #t
 234 (complex? #f) => #f
 235 (real? 1) => #t
 236 (real? 1/2) => #t
 237 (real? 1.5) => #t
 238 (real? +i) => #f
 239 (real? #f) => #f
 240 (rational? 1) => #t
 241 (rational? 1/2) => #t
 242 (rational? 1.5) => #t
 243 (rational? +i) => #f
 244 (rational? #f) => #f
 245 (integer? 1) => #t
 246 (integer? 1/2) => #f
 247 (integer? 1.5) => #f
 248 (integer? +i) => #f
 249 (integer? #f) => #f
 250 (exact? 1/2) => #t
 251 (exact? 1.5) => #f
 252 (exact? +i) => #t
 253 ;;; (Argument 1) NUMBER expected: (exact? #f)
 254 (inexact? 1/2) => #f
 255 (inexact? 1.5) => #t
 256 (inexact? +i) => #f
 257 ;;; (Argument 1) NUMBER expected: (inexact? #f)
 258 (=) => #t
 259 (= 1) => #t
 260 ;;; (Argument 1) NUMBER expected: (= 'a)
 261 (= 1 1) => #t
 262 (= 1 2) => #f
 263 (= 2 1) => #f
 264 (= 1 +i) => #f
 265 ;;; (Argument 1) NUMBER expected: (= 'a 2)
 266 ;;; (Argument 2) NUMBER expected: (= 1 'b)
 267 (= 1 2 3) => #f
 268 ;;; (Argument 3) NUMBER expected: (= 1 2 'c)
 269 (= 2 2 2 2) => #t
 270 (= 1 2 3 4) => #f
 271 (= 4 3 2 1) => #f
 272 (= 1 2 4 4) => #f
 273 (= 4 4 2 1) => #f
 274 (<) => #t
 275 (< 1) => #t
 276 ;;; (Argument 1) REAL expected: (< 'a)
 277 (< 1 1) => #f
 278 (< 1 2) => #t
 279 (< 2 1) => #f
 280 ;;; (Argument 2) REAL expected: (< 1 +i)
 281 ;;; (Argument 1) REAL expected: (< 'a 2)
 282 ;;; (Argument 2) REAL expected: (< 1 'b)
 283 (< 1 2 3) => #t
 284 ;;; (Argument 3) REAL expected: (< 1 2 'c)
 285 (< 2 2 2 2) => #f
 286 (< 1 2 3 4) => #t
 287 (< 4 3 2 1) => #f
 288 (< 1 2 4 4) => #f
 289 (< 4 4 2 1) => #f
 290 (>) => #t
 291 (> 1) => #t
 292 ;;; (Argument 1) REAL expected: (> 'a)
 293 (> 1 1) => #f
 294 (> 1 2) => #f
 295 (> 2 1) => #t
 296 ;;; (Argument 1) REAL expected: (> 1 +i)
 297 ;;; (Argument 2) REAL expected: (> 'a 2)
 298 ;;; (Argument 1) REAL expected: (> 1 'b)
 299 (> 1 2 3) => #f
 300 ;;; (Argument 2) REAL expected: (> 1 2 'c)
 301 (> 2 2 2 2) => #f
 302 (> 1 2 3 4) => #f
 303 (> 4 3 2 1) => #t
 304 (> 1 2 4 4) => #f
 305 (> 4 4 2 1) => #f
 306 (<=) => #t
 307 (<= 1) => #t
 308 ;;; (Argument 1) REAL expected: (<= 'a)
 309 (<= 1 1) => #t
 310 (<= 1 2) => #t
 311 (<= 2 1) => #f
 312 ;;; (Argument 1) REAL expected: (<= 1 +i)
 313 ;;; (Argument 2) REAL expected: (<= 'a 2)
 314 ;;; (Argument 1) REAL expected: (<= 1 'b)
 315 (<= 1 2 3) => #t
 316 ;;; (Argument 2) REAL expected: (<= 1 2 'c)
 317 (<= 2 2 2 2) => #t
 318 (<= 1 2 3 4) => #t
 319 (<= 4 3 2 1) => #f
 320 (<= 1 2 4 4) => #t
 321 (<= 4 4 2 1) => #f
 322 (>=) => #t
 323 (>= 1) => #t
 324 ;;; (Argument 1) REAL expected: (>= 'a)
 325 (>= 1 1) => #t
 326 (>= 1 2) => #f
 327 (>= 2 1) => #t
 328 ;;; (Argument 2) REAL expected: (>= 1 +i)
 329 ;;; (Argument 1) REAL expected: (>= 'a 2)
 330 ;;; (Argument 2) REAL expected: (>= 1 'b)
 331 (>= 1 2 3) => #f
 332 ;;; (Argument 3) REAL expected: (>= 1 2 'c)
 333 (>= 2 2 2 2) => #t
 334 (>= 1 2 3 4) => #f
 335 (>= 4 3 2 1) => #t
 336 (>= 1 2 4 4) => #f
 337 (>= 4 4 2 1) => #t
 338 (zero? 1) => #f
 339 (zero? 2.) => #f
 340 (zero? 3.4) => #f
 341 (zero? +i) => #f
 342 ;;; (Argument 1) NUMBER expected: (zero? 'foo)
 343 (positive? 1) => #t
 344 (positive? 2.) => #t
 345 (positive? 3.4) => #t
 346 ;;; (Argument 1) REAL expected: (positive? +i)
 347 ;;; (Argument 1) REAL expected: (positive? 'foo)
 348 (negative? 1) => #f
 349 (negative? 2.) => #f
 350 (negative? 3.4) => #f
 351 ;;; (Argument 1) REAL expected: (negative? +i)
 352 ;;; (Argument 1) REAL expected: (negative? 'foo)
 353 (odd? 1) => #t
 354 (odd? 2.) => #f
 355 ;;; (Argument 1) INTEGER expected: (odd? 3.4)
 356 ;;; (Argument 1) INTEGER expected: (odd? +i)
 357 ;;; (Argument 1) INTEGER expected: (odd? 'foo)
 358 (even? 1) => #f
 359 (even? 2.) => #t
 360 ;;; (Argument 1) INTEGER expected: (even? 3.4)
 361 ;;; (Argument 1) INTEGER expected: (even? +i)
 362 ;;; (Argument 1) INTEGER expected: (even? 'foo)
 363 (max 3) => 3
 364 ;;; (Argument 1) REAL expected: (max 'a)
 365 (max 3 4) => 4
 366 (max 3 4.) => 4.
 367 ;;; (Argument 1) REAL expected: (max 'a 4.)
 368 ;;; (Argument 2) REAL expected: (max 3 'b)
 369 (max 1 2 3) => 3
 370 ;;; (Argument 3) REAL expected: (max 1 2 'c)
 371 ;;; (Argument 1) REAL expected: (max 1+0.i 2+0.i)
 372 (min 3) => 3
 373 ;;; (Argument 1) REAL expected: (min 'a)
 374 (min 3 4) => 3
 375 (min 3 4.) => 3.
 376 ;;; (Argument 1) REAL expected: (min 'a 4.)
 377 ;;; (Argument 2) REAL expected: (min 3 'b)
 378 (min 1 2 3) => 1
 379 ;;; (Argument 3) REAL expected: (min 1 2 'c)
 380 ;;; (Argument 1) REAL expected: (min 1+0.i 2+0.i)
 381 (+) => 0
 382 (+ 2) => 2
 383 ;;; (Argument 1) NUMBER expected: (+ 'a)
 384 (+ 2 3) => 5
 385 (+ 2 +i) => 2+i
 386 ;;; (Argument 1) NUMBER expected: (+ 'a 2)
 387 ;;; (Argument 2) NUMBER expected: (+ 1 'b)
 388 (+ 1 2 3) => 6
 389 ;;; (Argument 3) NUMBER expected: (+ 1 2 'c)
 390 (+ 2 2 2 2) => 8
 391 (+ 1 2 3 4) => 10
 392 (+ 4 3 2 1) => 10
 393 (+ 1 2 4 4) => 11
 394 (+ 4 4 2 1) => 11
 395 (*) => 1
 396 (* 2) => 2
 397 ;;; (Argument 1) NUMBER expected: (* 'a)
 398 (* 2 3) => 6
 399 (* 2 +i) => +2i
 400 ;;; (Argument 1) NUMBER expected: (* 'a 2)
 401 ;;; (Argument 2) NUMBER expected: (* 1 'b)
 402 (* 1 2 3) => 6
 403 ;;; (Argument 3) NUMBER expected: (* 1 2 'c)
 404 (* 2 2 2 2) => 16
 405 (* 1 2 3 4) => 24
 406 (* 4 3 2 1) => 24
 407 (* 1 2 4 4) => 32
 408 (* 4 4 2 1) => 32
 409 (- 2) => -2
 410 ;;; (Argument 1) NUMBER expected: (- 'a)
 411 (- 2 3) => -1
 412 (- 2 +i) => 2-i
 413 ;;; (Argument 1) NUMBER expected: (- 'a 2)
 414 ;;; (Argument 2) NUMBER expected: (- 1 'b)
 415 (- 1 2 3) => -4
 416 ;;; (Argument 3) NUMBER expected: (- 1 2 'c)
 417 (- 2 2 2 2) => -4
 418 (- 1 2 3 4) => -8
 419 (- 4 3 2 1) => -2
 420 (- 1 2 4 4) => -9
 421 (- 4 4 2 1) => -3
 422 (/ 2) => 1/2
 423 ;;; Divide by zero: (/ 0)
 424 ;;; (Argument 1) NUMBER expected: (/ 'a)
 425 (/ 2 3) => 2/3
 426 (/ 2 +i) => -2i
 427 ;;; Divide by zero: (/ 2 0)
 428 ;;; (Argument 1) NUMBER expected: (/ 'a 2)
 429 ;;; (Argument 2) NUMBER expected: (/ 1 'b)
 430 (/ 1 2 3) => 1/6
 431 ;;; Divide by zero: (/ 1 2 0)
 432 ;;; (Argument 3) NUMBER expected: (/ 1 2 'c)
 433 (/ 2 2 2 2) => 1/4
 434 (/ 1 2 3 4) => 1/24
 435 (/ 4 3 2 1) => 2/3
 436 (/ 1 2 4 4) => 1/32
 437 (/ 4 4 2 1) => 1/2
 438 (abs -7) => 7
 439 ;;; (Argument 1) REAL expected: (abs +i)
 440 ;;; (Argument 1) REAL expected: (abs 'a)
 441 (quotient 9 4) => 2
 442 (quotient 295147905149568077200 34359738366) => 8589934591
 443 (quotient 696898287454081973170944403677937368733396 1180591620717411303422) => 590295810358705651711
 444 (quotient 9. -4.) => -2.
 445 ;;; (Argument 2) INTEGER expected: (quotient 9. 3/2)
 446 ;;; Divide by zero: (quotient 9 0)
 447 ;;; (Argument 1) INTEGER expected: (quotient 'a 4)
 448 ;;; (Argument 2) INTEGER expected: (quotient 9 'b)
 449 (remainder 9 4) => 1
 450 (remainder 295147905149568077200 34359738366) => 21754858894
 451 (remainder 696898287454081973170944403677937368733396 1180591620717411303422) => 314390899110894278354
 452 (remainder 9. -4.) => 1.
 453 ;;; (Argument 2) INTEGER expected: (remainder 9. 3/2)
 454 ;;; Divide by zero: (remainder 9 0)
 455 ;;; (Argument 1) INTEGER expected: (remainder 'a 4)
 456 ;;; (Argument 2) INTEGER expected: (remainder 9 'b)
 457 (modulo 9 4) => 1
 458 (modulo 295147905149568077200 34359738366) => 21754858894
 459 (modulo 696898287454081973170944403677937368733396 1180591620717411303422) => 314390899110894278354
 460 (modulo 9. -4.) => -3.
 461 ;;; (Argument 2) INTEGER expected: (modulo 9. 3/2)
 462 ;;; Divide by zero: (modulo 9 0)
 463 ;;; (Argument 1) INTEGER expected: (modulo 'a 4)
 464 ;;; (Argument 2) INTEGER expected: (modulo 9 'b)
 465 (gcd) => 0
 466 (gcd 10) => 10
 467 ;;; (Argument 1) INTEGER expected: (gcd 3/2)
 468 ;;; (Argument 1) INTEGER expected: (gcd 'a)
 469 (gcd 9 4) => 1
 470 (gcd 9. -4.) => 1.
 471 ;;; (Argument 2) INTEGER expected: (gcd 9. 3/2)
 472 ;;; (Argument 1) INTEGER expected: (gcd 'a 4)
 473 ;;; (Argument 2) INTEGER expected: (gcd 9 'b)
 474 (gcd 12 8 10) => 2
 475 ;;; (Argument 3) INTEGER expected: (gcd 12 8 'c)
 476 (lcm) => 1
 477 (lcm 10) => 10
 478 ;;; (Argument 1) INTEGER expected: (lcm 3/2)
 479 ;;; (Argument 1) INTEGER expected: (lcm 'a)
 480 (lcm 9 4) => 36
 481 (lcm 9. -4.) => 36.
 482 ;;; (Argument 2) INTEGER expected: (lcm 9. 3/2)
 483 ;;; (Argument 1) INTEGER expected: (lcm 'a 4)
 484 ;;; (Argument 2) INTEGER expected: (lcm 9 'b)
 485 (lcm 12 8 10) => 120
 486 ;;; (Argument 3) INTEGER expected: (lcm 12 8 'c)
 487 (numerator 3/2) => 3
 488 (numerator 1.5) => 3.
 489 ;;; (Argument 1) RATIONAL expected: (numerator +i)
 490 ;;; (Argument 1) RATIONAL expected: (numerator 'a)
 491 (denominator 3/2) => 2
 492 (denominator 1.5) => 2.
 493 ;;; (Argument 1) RATIONAL expected: (denominator +i)
 494 ;;; (Argument 1) RATIONAL expected: (denominator 'a)
 495 (floor 2/3) => 0
 496 (floor 1.2) => 1.
 497 ;;; (Argument 1) Finite REAL expected: (floor +i)
 498 ;;; (Argument 1) Finite REAL expected: (floor 'a)
 499 (ceiling 2/3) => 1
 500 (ceiling 1.2) => 2.
 501 ;;; (Argument 1) Finite REAL expected: (ceiling +i)
 502 ;;; (Argument 1) Finite REAL expected: (ceiling 'a)
 503 (truncate 2/3) => 0
 504 (truncate 1.2) => 1.
 505 ;;; (Argument 1) Finite REAL expected: (truncate +i)
 506 ;;; (Argument 1) Finite REAL expected: (truncate 'a)
 507 (round 2/3) => 1
 508 (round 1.2) => 1.
 509 ;;; (Argument 1) Finite REAL expected: (round +i)
 510 ;;; (Argument 1) Finite REAL expected: (round 'a)
 511 (rationalize -3/2 1/2) => -1
 512 (rationalize -1.5 .5) => -1.
 513 ;;; (Argument 2) Out of range: (rationalize -1.5 -.5)
 514 ;;; (Argument 1) Finite REAL expected: (rationalize +i 2)
 515 ;;; (Argument 2) REAL expected: (rationalize 1 +i)
 516 ;;; (Argument 1) Finite REAL expected: (rationalize 'a 2)
 517 ;;; (Argument 2) REAL expected: (rationalize 1 'b)
 518 (exp 1/2) => 1.648721
 519 (exp -1.5) => .22313
 520 (exp +i) => .540302+.841471i
 521 ;;; (Argument 1) NUMBER expected: (exp 'a)
 522 (log 1/2) => -.693147
 523 (log -1.5) => .405465+3.141593i
 524 (log +i) => +1.570796i
 525 ;;; (Argument 1) NUMBER expected: (log 'a)
 526 (sin 1/2) => .479426
 527 (sin -1.5) => -.997495
 528 (sin +i) => +1.175201i
 529 ;;; (Argument 1) NUMBER expected: (sin 'a)
 530 (cos 1/2) => .877583
 531 (cos -1.5) => .070737
 532 (cos +i) => 1.543081
 533 ;;; (Argument 1) NUMBER expected: (cos 'a)
 534 (tan 1/2) => .546302
 535 (tan -1.5) => -14.10142
 536 (tan +i) => +.761594i
 537 ;;; (Argument 1) NUMBER expected: (tan 'a)
 538 (asin 1/2) => .523599
 539 (asin -1.5) => -1.570796+.962424i
 540 (asin +i) => +.881374i
 541 ;;; (Argument 1) NUMBER expected: (asin 'a)
 542 (acos 1/2) => 1.047198
 543 (acos -1.5) => 3.141593-.962424i
 544 (acos +i) => 1.570796-.881374i
 545 ;;; (Argument 1) NUMBER expected: (acos 'a)
 546 (atan 1/2) => .463648
 547 (atan -1.5) => -.982794
 548 ;;; (Argument 1) Out of range: (atan +i)
 549 ;;; (Argument 1) NUMBER expected: (atan 'a)
 550 (atan -1.5 2.5) => -.54042
 551 ;;; (Argument 2) REAL expected: (atan 1 +i)
 552 ;;; (Argument 1) REAL expected: (atan +i 2)
 553 ;;; (Argument 2) REAL expected: (atan 1 'b)
 554 ;;; (Argument 1) REAL expected: (atan 'a 2)
 555 (sqrt 1/4) => 1/2
 556 (sqrt -1.5) => +1.224745i
 557 (sqrt +i) => .707107+.707107i
 558 ;;; (Argument 1) NUMBER expected: (sqrt 'a)
 559 (expt 1/4 -1.5) => 8.
 560 (expt 2 +i) => .769239+.638961i
 561 (expt +i 2) => -1
 562 ;;; (Argument 1) NUMBER expected: (expt 'a +i)
 563 ;;; (Argument 2) NUMBER expected: (expt +i 'b)
 564 (make-rectangular 1/2 -1.5) => 1/2-1.5i
 565 ;;; (Argument 2) REAL expected: (make-rectangular 1/2 +i)
 566 ;;; (Argument 1) REAL expected: (make-rectangular +i -1.5)
 567 ;;; (Argument 1) REAL expected: (make-rectangular 'a 2)
 568 ;;; (Argument 2) REAL expected: (make-rectangular 1 'b)
 569 (make-polar 1/2 -1.5) => .035369-.498747i
 570 ;;; (Argument 2) REAL expected: (make-polar 1/2 +i)
 571 ;;; (Argument 1) REAL expected: (make-polar +i -1.5)
 572 ;;; (Argument 1) REAL expected: (make-polar 'a 2)
 573 ;;; (Argument 2) REAL expected: (make-polar 1 'b)
 574 (real-part 1/2) => 1/2
 575 (real-part -1.5) => -1.5
 576 (real-part +i) => 0
 577 ;;; (Argument 1) NUMBER expected: (real-part 'a)
 578 (imag-part 1/2) => 0
 579 (imag-part -1.5) => 0
 580 (imag-part +i) => 1
 581 ;;; (Argument 1) NUMBER expected: (imag-part 'a)
 582 (magnitude 1/2) => 1/2
 583 (magnitude -1.5) => 1.5
 584 (magnitude +i) => 1
 585 ;;; (Argument 1) NUMBER expected: (magnitude 'a)
 586 (angle 1/2) => 0
 587 (angle -1.5) => 3.141593
 588 (angle +i) => 1.570796
 589 ;;; (Argument 1) NUMBER expected: (angle 'a)
 590 (exact->inexact 1/2) => .5
 591 (exact->inexact -1.5) => -1.5
 592 (exact->inexact +i) => 0.+1.i
 593 ;;; (Argument 1) NUMBER expected: (exact->inexact 'a)
 594 (inexact->exact 1/2) => 1/2
 595 (inexact->exact -1.5) => -3/2
 596 (inexact->exact +i) => +i
 597 ;;; (Argument 1) NUMBER expected: (inexact->exact 'a)
 598 (number->string 1/2) => "1/2"
 599 (number->string -1.5) => "-1.5"
 600 (number->string +i) => "+i"
 601 ;;; (Argument 1) NUMBER expected: (number->string 'a)
 602 (number->string 123 2) => "1111011"
 603 ;;; (Argument 2) Out of range: (number->string 123 3)
 604 ;;; (Argument 2) Exact INTEGER expected: (number->string 123 2.)
 605 ;;; (Argument 2) Exact INTEGER expected: (number->string 123 +i)
 606 ;;; (Argument 2) Exact INTEGER expected: (number->string 123 'a)
 607 (string->number "1/2") => 1/2
 608 (string->number "-1.5") => -1.5
 609 (string->number "+i") => +i
 610 (string->number "foo") => #f
 611 ;;; (Argument 1) STRING expected: (string->number 'a)
 612 (string->number "123" 2) => #f
 613 ;;; (Argument 2) Out of range: (string->number "123" 3)
 614 ;;; (Argument 2) Exact INTEGER expected: (string->number "123" 2.)
 615 ;;; (Argument 2) Exact INTEGER expected: (string->number "123" +i)
 616 ;;; (Argument 2) Exact INTEGER expected: (string->number "123" 'a)
 617 (char? #\A) => #t
 618 (char? #f) => #f
 619 (char? '()) => #f
 620 (char? "foo") => #f
 621 (char=?) => #t
 622 (char=? #\A) => #t
 623 ;;; (Argument 1) CHARACTER expected: (char=? 123)
 624 (char=? #\A #\A) => #t
 625 (char=? #\A #\B) => #f
 626 (char=? #\B #\A) => #f
 627 ;;; (Argument 2) CHARACTER expected: (char=? #\A 123)
 628 ;;; (Argument 1) CHARACTER expected: (char=? 123 #\A)
 629 (char=? #\A #\B #\C) => #f
 630 (char=? #\A #\B #\B) => #f
 631 (char=? #\B #\B #\B) => #t
 632 (char=? #\B #\B #\A) => #f
 633 (char=? #\C #\B #\A) => #f
 634 ;;; (Argument 3) CHARACTER expected: (char=? #\A #\B 123)
 635 (char<?) => #t
 636 (char<? #\A) => #t
 637 ;;; (Argument 1) CHARACTER expected: (char<? 123)
 638 (char<? #\A #\A) => #f
 639 (char<? #\A #\B) => #t
 640 (char<? #\B #\A) => #f
 641 ;;; (Argument 2) CHARACTER expected: (char<? #\A 123)
 642 ;;; (Argument 1) CHARACTER expected: (char<? 123 #\A)
 643 (char<? #\A #\B #\C) => #t
 644 (char<? #\A #\B #\B) => #f
 645 (char<? #\B #\B #\B) => #f
 646 (char<? #\B #\B #\A) => #f
 647 (char<? #\C #\B #\A) => #f
 648 ;;; (Argument 3) CHARACTER expected: (char<? #\A #\B 123)
 649 (char>?) => #t
 650 (char>? #\A) => #t
 651 ;;; (Argument 1) CHARACTER expected: (char>? 123)
 652 (char>? #\A #\A) => #f
 653 (char>? #\A #\B) => #f
 654 (char>? #\B #\A) => #t
 655 ;;; (Argument 2) CHARACTER expected: (char>? #\A 123)
 656 ;;; (Argument 1) CHARACTER expected: (char>? 123 #\A)
 657 (char>? #\A #\B #\C) => #f
 658 (char>? #\A #\B #\B) => #f
 659 (char>? #\B #\B #\B) => #f
 660 (char>? #\B #\B #\A) => #f
 661 (char>? #\C #\B #\A) => #t
 662 ;;; (Argument 3) CHARACTER expected: (char>? #\A #\B 123)
 663 (char<=?) => #t
 664 (char<=? #\A) => #t
 665 ;;; (Argument 1) CHARACTER expected: (char<=? 123)
 666 (char<=? #\A #\A) => #t
 667 (char<=? #\A #\B) => #t
 668 (char<=? #\B #\A) => #f
 669 ;;; (Argument 2) CHARACTER expected: (char<=? #\A 123)
 670 ;;; (Argument 1) CHARACTER expected: (char<=? 123 #\A)
 671 (char<=? #\A #\B #\C) => #t
 672 (char<=? #\A #\B #\B) => #t
 673 (char<=? #\B #\B #\B) => #t
 674 (char<=? #\B #\B #\A) => #f
 675 (char<=? #\C #\B #\A) => #f
 676 ;;; (Argument 3) CHARACTER expected: (char<=? #\A #\B 123)
 677 (char>=?) => #t
 678 (char>=? #\A) => #t
 679 ;;; (Argument 1) CHARACTER expected: (char>=? 123)
 680 (char>=? #\A #\A) => #t
 681 (char>=? #\A #\B) => #f
 682 (char>=? #\B #\A) => #t
 683 ;;; (Argument 2) CHARACTER expected: (char>=? #\A 123)
 684 ;;; (Argument 1) CHARACTER expected: (char>=? 123 #\A)
 685 (char>=? #\A #\B #\C) => #f
 686 (char>=? #\A #\B #\B) => #f
 687 (char>=? #\B #\B #\B) => #t
 688 (char>=? #\B #\B #\A) => #t
 689 (char>=? #\C #\B #\A) => #t
 690 ;;; (Argument 3) CHARACTER expected: (char>=? #\A #\B 123)
 691 (char-ci=?) => #t
 692 (char-ci=? #\A) => #t
 693 ;;; (Argument 1) CHARACTER expected: (char-ci=? 123)
 694 (char-ci=? #\A #\a) => #t
 695 (char-ci=? #\A #\b) => #f
 696 (char-ci=? #\B #\a) => #f
 697 ;;; (Argument 2) CHARACTER expected: (char-ci=? #\A 123)
 698 ;;; (Argument 1) CHARACTER expected: (char-ci=? 123 #\A)
 699 (char-ci=? #\A #\b #\C) => #f
 700 (char-ci=? #\A #\b #\B) => #f
 701 (char-ci=? #\B #\b #\B) => #t
 702 (char-ci=? #\B #\b #\A) => #f
 703 (char-ci=? #\C #\b #\A) => #f
 704 ;;; (Argument 3) CHARACTER expected: (char-ci=? #\A #\b 123)
 705 (char-ci<?) => #t
 706 (char-ci<? #\A) => #t
 707 ;;; (Argument 1) CHARACTER expected: (char-ci<? 123)
 708 (char-ci<? #\A #\a) => #f
 709 (char-ci<? #\A #\b) => #t
 710 (char-ci<? #\B #\a) => #f
 711 ;;; (Argument 2) CHARACTER expected: (char-ci<? #\A 123)
 712 ;;; (Argument 1) CHARACTER expected: (char-ci<? 123 #\A)
 713 (char-ci<? #\A #\b #\C) => #t
 714 (char-ci<? #\A #\b #\B) => #f
 715 (char-ci<? #\B #\b #\B) => #f
 716 (char-ci<? #\B #\b #\A) => #f
 717 (char-ci<? #\C #\b #\A) => #f
 718 ;;; (Argument 3) CHARACTER expected: (char-ci<? #\A #\b 123)
 719 (char-ci>?) => #t
 720 (char-ci>? #\A) => #t
 721 ;;; (Argument 1) CHARACTER expected: (char-ci>? 123)
 722 (char-ci>? #\A #\a) => #f
 723 (char-ci>? #\A #\b) => #f
 724 (char-ci>? #\B #\a) => #t
 725 ;;; (Argument 2) CHARACTER expected: (char-ci>? #\A 123)
 726 ;;; (Argument 1) CHARACTER expected: (char-ci>? 123 #\A)
 727 (char-ci>? #\A #\b #\C) => #f
 728 (char-ci>? #\A #\b #\B) => #f
 729 (char-ci>? #\B #\b #\B) => #f
 730 (char-ci>? #\B #\b #\A) => #f
 731 (char-ci>? #\C #\b #\A) => #t
 732 ;;; (Argument 3) CHARACTER expected: (char-ci>? #\A #\b 123)
 733 (char-ci<=?) => #t
 734 (char-ci<=? #\A) => #t
 735 ;;; (Argument 1) CHARACTER expected: (char-ci<=? 123)
 736 (char-ci<=? #\A #\a) => #t
 737 (char-ci<=? #\A #\b) => #t
 738 (char-ci<=? #\B #\a) => #f
 739 ;;; (Argument 2) CHARACTER expected: (char-ci<=? #\A 123)
 740 ;;; (Argument 1) CHARACTER expected: (char-ci<=? 123 #\A)
 741 (char-ci<=? #\A #\b #\C) => #t
 742 (char-ci<=? #\A #\b #\B) => #t
 743 (char-ci<=? #\B #\b #\B) => #t
 744 (char-ci<=? #\B #\b #\A) => #f
 745 (char-ci<=? #\C #\b #\A) => #f
 746 ;;; (Argument 3) CHARACTER expected: (char-ci<=? #\A #\b 123)
 747 (char-ci>=?) => #t
 748 (char-ci>=? #\A) => #t
 749 ;;; (Argument 1) CHARACTER expected: (char-ci>=? 123)
 750 (char-ci>=? #\A #\a) => #t
 751 (char-ci>=? #\A #\b) => #f
 752 (char-ci>=? #\B #\a) => #t
 753 ;;; (Argument 2) CHARACTER expected: (char-ci>=? #\A 123)
 754 ;;; (Argument 1) CHARACTER expected: (char-ci>=? 123 #\A)
 755 (char-ci>=? #\A #\b #\C) => #f
 756 (char-ci>=? #\A #\b #\B) => #f
 757 (char-ci>=? #\B #\b #\B) => #t
 758 (char-ci>=? #\B #\b #\A) => #t
 759 (char-ci>=? #\C #\b #\A) => #t
 760 ;;; (Argument 3) CHARACTER expected: (char-ci>=? #\A #\b 123)
 761 (char-alphabetic? #\a) => #t
 762 (char-alphabetic? #\A) => #t
 763 (char-alphabetic? #\0) => #f
 764 (char-alphabetic? #\newline) => #f
 765 ;;; (Argument 1) CHARACTER expected: (char-alphabetic? 123)
 766 (char-numeric? #\a) => #f
 767 (char-numeric? #\A) => #f
 768 (char-numeric? #\0) => #t
 769 (char-numeric? #\newline) => #f
 770 ;;; (Argument 1) CHARACTER expected: (char-numeric? 123)
 771 (char-whitespace? #\a) => #f
 772 (char-whitespace? #\A) => #f
 773 (char-whitespace? #\0) => #f
 774 (char-whitespace? #\newline) => #t
 775 ;;; (Argument 1) CHARACTER expected: (char-whitespace? 123)
 776 (char-upper-case? #\a) => #f
 777 (char-upper-case? #\A) => #t
 778 (char-upper-case? #\0) => #f
 779 (char-upper-case? #\newline) => #f
 780 ;;; (Argument 1) CHARACTER expected: (char-upper-case? 123)
 781 (char-lower-case? #\a) => #t
 782 (char-lower-case? #\A) => #f
 783 (char-lower-case? #\0) => #f
 784 (char-lower-case? #\newline) => #f
 785 ;;; (Argument 1) CHARACTER expected: (char-lower-case? 123)
 786 (char->integer #\A) => 65
 787 ;;; (Argument 1) CHARACTER expected: (char->integer 123)
 788 (integer->char 123) => #\{
 789 ;;; (Argument 1) Out of range: (integer->char -1)
 790 ;;; (Argument 1) Out of range: (integer->char 1114112)
 791 ;;; (Argument 1) Out of range: (integer->char 55296)
 792 ;;; (Argument 1) Exact INTEGER expected: (integer->char 123.)
 793 ;;; (Argument 1) Exact INTEGER expected: (integer->char #\A)
 794 (char-upcase #\a) => #\A
 795 (char-upcase #\A) => #\A
 796 (char-upcase #\@) => #\@
 797 ;;; (Argument 1) CHARACTER expected: (char-upcase 123)
 798 ;;; (Argument 1) CHARACTER expected: (char-upcase 'a)
 799 ;;; (Argument 1) CHARACTER expected: (char-upcase "a")
 800 (char-downcase #\a) => #\a
 801 (char-downcase #\A) => #\a
 802 (char-downcase #\@) => #\@
 803 ;;; (Argument 1) CHARACTER expected: (char-downcase 123)
 804 ;;; (Argument 1) CHARACTER expected: (char-downcase 'a)
 805 ;;; (Argument 1) CHARACTER expected: (char-downcase "a")
 806 (make-string 0) => ""
 807 (make-string 3) => "\0\0\0"
 808 ;;; CALL EXPRESSION ("???") IS WRONG: (make-string 536870911)
 809 ;;; (Argument 1) Out of range: (make-string 12345678901234567890)
 810 ;;; (Argument 1) Out of range: (make-string -1)
 811 ;;; (Argument 1) Exact INTEGER expected: (make-string 1.5)
 812 (make-string 5 #\6) => "66666"
 813 ;;; (Argument 2) CHARACTER expected: (make-string 1 'a)
 814 (string) => ""
 815 (string #\5) => "5"
 816 (string #\5 #\6) => "56"
 817 ;;; (Argument 2) CHARACTER expected: (string #\5 'b #\7)
 818 (string-length "5678") => 4
 819 ;;; (Argument 1) STRING expected: (string-length 12345678901234567890)
 820 (string-ref "5678" 3) => #\8
 821 ;;; (Argument 2) Out of range: (string-ref "56" -1)
 822 ;;; (Argument 2) Out of range: (string-ref "56" 2)
 823 ;;; (Argument 2) Out of range: (string-ref "56" 12345678901234567890)
 824 ;;; (Argument 1) STRING expected: (string-ref 12345678901234567890 0)
 825 (string-set! "56" 1 #\3) => "53"
 826 ;;; (Argument 2) Out of range: (string-set! "56" -1 #\3)
 827 ;;; (Argument 2) Out of range: (string-set! "56" 2 #\3)
 828 ;;; (Argument 2) Out of range: (string-set! "56" 12345678901234567890 #\3)
 829 ;;; (Argument 3) CHARACTER expected: (string-set! "56" 1 'a)
 830 ;;; (Argument 1) STRING expected: (string-set! 12345678901234567890 0 #\3)
 831 (string=?) => #t
 832 (string=? "A") => #t
 833 ;;; (Argument 1) STRING expected: (string=? 123)
 834 (string=? "A" "A") => #t
 835 (string=? "A" "B") => #f
 836 (string=? "A" "A ") => #f
 837 (string=? "B" "A") => #f
 838 (string=? "A " "A") => #f
 839 ;;; (Argument 2) STRING expected: (string=? "A" 123)
 840 ;;; (Argument 1) STRING expected: (string=? 123 "A")
 841 ;;; (Argument 2) STRING expected: (string=? "A" 123)
 842 (string=? "A" "B" "C") => #f
 843 (string=? "A" "B" "B") => #f
 844 (string=? "B" "B" "B") => #t
 845 (string=? "B" "B" "A") => #f
 846 (string=? "C" "B" "A") => #f
 847 ;;; (Argument 3) STRING expected: (string=? "A" "B" 123)
 848 (string<?) => #t
 849 (string<? "A") => #t
 850 ;;; (Argument 1) STRING expected: (string<? 123)
 851 (string<? "A" "A") => #f
 852 (string<? "A" "B") => #t
 853 (string<? "A" "A ") => #t
 854 (string<? "B" "A") => #f
 855 (string<? "A " "A") => #f
 856 ;;; (Argument 2) STRING expected: (string<? "A" 123)
 857 ;;; (Argument 1) STRING expected: (string<? 123 "A")
 858 ;;; (Argument 2) STRING expected: (string<? "A" 123)
 859 (string<? "A" "B" "C") => #t
 860 (string<? "A" "B" "B") => #f
 861 (string<? "B" "B" "B") => #f
 862 (string<? "B" "B" "A") => #f
 863 (string<? "C" "B" "A") => #f
 864 ;;; (Argument 3) STRING expected: (string<? "A" "B" 123)
 865 (string>?) => #t
 866 (string>? "A") => #t
 867 ;;; (Argument 1) STRING expected: (string>? 123)
 868 (string>? "A" "A") => #f
 869 (string>? "A" "B") => #f
 870 (string>? "A" "A ") => #f
 871 (string>? "B" "A") => #t
 872 (string>? "A " "A") => #t
 873 ;;; (Argument 2) STRING expected: (string>? "A" 123)
 874 ;;; (Argument 1) STRING expected: (string>? 123 "A")
 875 ;;; (Argument 2) STRING expected: (string>? "A" 123)
 876 (string>? "A" "B" "C") => #f
 877 (string>? "A" "B" "B") => #f
 878 (string>? "B" "B" "B") => #f
 879 (string>? "B" "B" "A") => #f
 880 (string>? "C" "B" "A") => #t
 881 ;;; (Argument 3) STRING expected: (string>? "A" "B" 123)
 882 (string<=?) => #t
 883 (string<=? "A") => #t
 884 ;;; (Argument 1) STRING expected: (string<=? 123)
 885 (string<=? "A" "A") => #t
 886 (string<=? "A" "B") => #t
 887 (string<=? "A" "A ") => #t
 888 (string<=? "B" "A") => #f
 889 (string<=? "A " "A") => #f
 890 ;;; (Argument 2) STRING expected: (string<=? "A" 123)
 891 ;;; (Argument 1) STRING expected: (string<=? 123 "A")
 892 ;;; (Argument 2) STRING expected: (string<=? "A" 123)
 893 (string<=? "A" "B" "C") => #t
 894 (string<=? "A" "B" "B") => #t
 895 (string<=? "B" "B" "B") => #t
 896 (string<=? "B" "B" "A") => #f
 897 (string<=? "C" "B" "A") => #f
 898 ;;; (Argument 3) STRING expected: (string<=? "A" "B" 123)
 899 (string>=?) => #t
 900 (string>=? "A") => #t
 901 ;;; (Argument 1) STRING expected: (string>=? 123)
 902 (string>=? "A" "A") => #t
 903 (string>=? "A" "B") => #f
 904 (string>=? "A" "A ") => #f
 905 (string>=? "B" "A") => #t
 906 (string>=? "A " "A") => #t
 907 ;;; (Argument 2) STRING expected: (string>=? "A" 123)
 908 ;;; (Argument 1) STRING expected: (string>=? 123 "A")
 909 ;;; (Argument 2) STRING expected: (string>=? "A" 123)
 910 (string>=? "A" "B" "C") => #f
 911 (string>=? "A" "B" "B") => #f
 912 (string>=? "B" "B" "B") => #t
 913 (string>=? "B" "B" "A") => #t
 914 (string>=? "C" "B" "A") => #t
 915 ;;; (Argument 3) STRING expected: (string>=? "A" "B" 123)
 916 (string-ci=?) => #t
 917 (string-ci=? "A") => #t
 918 ;;; (Argument 1) STRING expected: (string-ci=? 123)
 919 (string-ci=? "A" "a") => #t
 920 (string-ci=? "A" "b") => #f
 921 (string-ci=? "A" "a ") => #f
 922 (string-ci=? "B" "a") => #f
 923 (string-ci=? "A " "a") => #f
 924 ;;; (Argument 2) STRING expected: (string-ci=? "A" 123)
 925 ;;; (Argument 1) STRING expected: (string-ci=? 123 "A")
 926 ;;; (Argument 2) STRING expected: (string-ci=? "A" 123)
 927 (string-ci=? "A" "b" "C") => #f
 928 (string-ci=? "A" "b" "B") => #f
 929 (string-ci=? "B" "b" "B") => #t
 930 (string-ci=? "B" "b" "A") => #f
 931 (string-ci=? "C" "b" "A") => #f
 932 ;;; (Argument 3) STRING expected: (string-ci=? "A" "b" 123)
 933 (string-ci<?) => #t
 934 (string-ci<? "A") => #t
 935 ;;; (Argument 1) STRING expected: (string-ci<? 123)
 936 (string-ci<? "A" "a") => #f
 937 (string-ci<? "A" "b") => #t
 938 (string-ci<? "A" "a ") => #t
 939 (string-ci<? "B" "a") => #f
 940 (string-ci<? "A " "a") => #f
 941 ;;; (Argument 2) STRING expected: (string-ci<? "A" 123)
 942 ;;; (Argument 1) STRING expected: (string-ci<? 123 "A")
 943 ;;; (Argument 2) STRING expected: (string-ci<? "A" 123)
 944 (string-ci<? "A" "b" "C") => #t
 945 (string-ci<? "A" "b" "B") => #f
 946 (string-ci<? "B" "b" "B") => #f
 947 (string-ci<? "B" "b" "A") => #f
 948 (string-ci<? "C" "b" "A") => #f
 949 ;;; (Argument 3) STRING expected: (string-ci<? "A" "b" 123)
 950 (string-ci>?) => #t
 951 (string-ci>? "A") => #t
 952 ;;; (Argument 1) STRING expected: (string-ci>? 123)
 953 (string-ci>? "A" "a") => #f
 954 (string-ci>? "A" "b") => #f
 955 (string-ci>? "A" "a ") => #f
 956 (string-ci>? "B" "a") => #t
 957 (string-ci>? "A " "a") => #t
 958 ;;; (Argument 2) STRING expected: (string-ci>? "A" 123)
 959 ;;; (Argument 1) STRING expected: (string-ci>? 123 "A")
 960 ;;; (Argument 2) STRING expected: (string-ci>? "A" 123)
 961 (string-ci>? "A" "b" "C") => #f
 962 (string-ci>? "A" "b" "B") => #f
 963 (string-ci>? "B" "b" "B") => #f
 964 (string-ci>? "B" "b" "A") => #f
 965 (string-ci>? "C" "b" "A") => #t
 966 ;;; (Argument 3) STRING expected: (string-ci>? "A" "b" 123)
 967 (string-ci<=?) => #t
 968 (string-ci<=? "A") => #t
 969 ;;; (Argument 1) STRING expected: (string-ci<=? 123)
 970 (string-ci<=? "A" "a") => #t
 971 (string-ci<=? "A" "b") => #t
 972 (string-ci<=? "A" "a ") => #t
 973 (string-ci<=? "B" "a") => #f
 974 (string-ci<=? "A " "a") => #f
 975 ;;; (Argument 2) STRING expected: (string-ci<=? "A" 123)
 976 ;;; (Argument 1) STRING expected: (string-ci<=? 123 "A")
 977 ;;; (Argument 2) STRING expected: (string-ci<=? "A" 123)
 978 (string-ci<=? "A" "b" "C") => #t
 979 (string-ci<=? "A" "b" "B") => #t
 980 (string-ci<=? "B" "b" "B") => #t
 981 (string-ci<=? "B" "b" "A") => #f
 982 (string-ci<=? "C" "b" "A") => #f
 983 ;;; (Argument 3) STRING expected: (string-ci<=? "A" "b" 123)
 984 (string-ci>=?) => #t
 985 (string-ci>=? "A") => #t
 986 ;;; (Argument 1) STRING expected: (string-ci>=? 123)
 987 (string-ci>=? "A" "a") => #t
 988 (string-ci>=? "A" "b") => #f
 989 (string-ci>=? "A" "a ") => #f
 990 (string-ci>=? "B" "a") => #t
 991 (string-ci>=? "A " "a") => #t
 992 ;;; (Argument 2) STRING expected: (string-ci>=? "A" 123)
 993 ;;; (Argument 1) STRING expected: (string-ci>=? 123 "A")
 994 ;;; (Argument 2) STRING expected: (string-ci>=? "A" 123)
 995 (string-ci>=? "A" "b" "C") => #f
 996 (string-ci>=? "A" "b" "B") => #f
 997 (string-ci>=? "B" "b" "B") => #t
 998 (string-ci>=? "B" "b" "A") => #t
 999 (string-ci>=? "C" "b" "A") => #t
1000 ;;; (Argument 3) STRING expected: (string-ci>=? "A" "b" 123)
1001 (substring "abcdef" 0 2) => "ab"
1002 (substring "abcdef" 2 2) => ""
1003 (substring "abcdef" 2 5) => "cde"
1004 (substring "abcdef" 2 6) => "cdef"
1005 ;;; (Argument 3) Out of range: (substring "abcdef" 2 7)
1006 ;;; (Argument 2) Out of range: (substring "abcdef" -1 5)
1007 ;;; (Argument 3) Out of range: (substring "abcdef" 2 1)
1008 ;;; (Argument 3) Out of range: (substring "abcdef" 2 12345678901234567890)
1009 ;;; (Argument 2) Out of range: (substring "abcdef" 12345678901234567890 2)
1010 ;;; (Argument 2) Exact INTEGER expected: (substring "abcdef" #\a 5)
1011 ;;; (Argument 3) Exact INTEGER expected: (substring "abcdef" 2 #\a)
1012 ;;; (Argument 1) STRING expected: (substring 12345678901234567890 0 2)
1013 (string-append) => ""
1014 (string-append "ab") => "ab"
1015 ;;; (Argument 1) STRING expected: (string-append 12345678901234567890)
1016 (string-append "ab" "cd") => "abcd"
1017 ;;; (Argument 2) STRING expected: (string-append "ab" 12345678901234567890)
1018 ;;; (Argument 1) STRING expected: (string-append 12345678901234567890 "cd")
1019 (string-append "ab" "cd" "ef") => "abcdef"
1020 ;;; (Argument 3) STRING expected: (string-append "ab" "cd" 12345678901234567890)
1021 (string->list "56") => (#\5 #\6)
1022 ;;; (Argument 1) STRING expected: (string->list 12345678901234567890)
1023 (list->string '(#\5 #\6)) => "56"
1024 ;;; (Argument 1) CHARACTER LIST expected: (list->string '(#\5 b))
1025 ;;; (Argument 1) LIST expected: (list->string 12345678901234567890)
1026 (string-copy "ab") => "ab"
1027 ;;; (Argument 1) STRING expected: (string-copy 12345678901234567890)
1028 (string-fill! "56" #\a) => "aa"
1029 ;;; (Argument 2) CHARACTER expected: (string-fill! "56" 'a)
1030 ;;; (Argument 1) STRING expected: (string-fill! 12345678901234567890 #\a)
1031 (make-vector 0) => #()
1032 (make-vector 3) => #(0 0 0)
1033 ;;; CALL EXPRESSION ("???") IS WRONG: (make-vector 536870911)
1034 ;;; (Argument 1) Out of range: (make-vector 12345678901234567890)
1035 ;;; (Argument 1) Out of range: (make-vector -1)
1036 ;;; (Argument 1) Exact INTEGER expected: (make-vector 1.5)
1037 (make-vector 5 'a) => #(a a a a a)
1038 (vector) => #()
1039 (vector 5) => #(5)
1040 (vector 5 'b) => #(5 b)
1041 (vector 5 'b 7) => #(5 b 7)
1042 (vector-length '#(5 6 7 8)) => 4
1043 ;;; (Argument 1) VECTOR expected: (vector-length 12345678901234567890)
1044 (vector-ref '#(5 6 7 8) 3) => 8
1045 ;;; (Argument 2) Out of range: (vector-ref '#(5 6) -1)
1046 ;;; (Argument 2) Out of range: (vector-ref '#(5 6) 2)
1047 ;;; (Argument 2) Out of range: (vector-ref '#(5 6) 12345678901234567890)
1048 ;;; (Argument 1) VECTOR expected: (vector-ref 12345678901234567890 0)
1049 (vector-set! '#(5 6) 1 3) => #(5 3)
1050 ;;; (Argument 2) Out of range: (vector-set! '#(5 6) -1 3)
1051 ;;; (Argument 2) Out of range: (vector-set! '#(5 6) 2 3)
1052 ;;; (Argument 2) Out of range: (vector-set! '#(5 6) 12345678901234567890 3)
1053 (vector-set! '#(5 6) 1 'a) => #(5 a)
1054 ;;; (Argument 1) VECTOR expected: (vector-set! 12345678901234567890 0 3)
1055 (vector->list '#(5 6)) => (5 6)
1056 ;;; (Argument 1) VECTOR expected: (vector->list 12345678901234567890)
1057 (list->vector '(5 b)) => #(5 b)
1058 ;;; (Argument 1) LIST expected: (list->vector 12345678901234567890)
1059 (vector-fill! '#(5 6) 'a) => #(a a)
1060 ;;; (Argument 1) VECTOR expected: (vector-fill! 12345678901234567890 'a)
1061 (procedure? '#<procedure #2 append>) => #t
1062 (procedure? '()) => #f
1063 (procedure? "foo") => #f
1064 (procedure? #f) => #f
1065 (apply '#<procedure #3 +> '()) => 0
1066 (apply '#<procedure #3 +> '(2 3)) => 5
1067 (apply '#<procedure #3 +> 2 '(3)) => 5
1068 (apply '#<procedure #3 +> 2 3 '()) => 5
1069 ;;; (Argument 2) LIST expected: (apply '#<procedure #3 +> '(2 . #f))
1070 ;;; (Argument 2) LIST expected: (apply '#<procedure #3 +> #f)
1071 ;;; (Argument 1) PROCEDURE expected: (apply #f '(2 3))
1072 (map '#<procedure #4 sqrt> '()) => ()
1073 (map '#<procedure #4 sqrt> '(1 4 9)) => (1 2 3)
1074 ;;; (Argument 2) LIST expected: (map '#<procedure #4 sqrt> #f)
1075 ;;; (Argument 2) LIST expected: (map '#<procedure #4 sqrt> '(1 . #f))
1076 ;;; (Argument 1) PROCEDURE expected: (map #f '(1 4 9))
1077 (map '#<procedure #3 +> '() '()) => ()
1078 (map '#<procedure #3 +> '(1 2 3) '(0 2 6)) => (1 4 9)
1079 ;;; (Argument 3) List is not of proper length: (map '#<procedure #3 +> '(1 2 3) '(0 2))
1080 ;;; (Argument 3) List is not of proper length: (map '#<procedure #3 +> '(1 2) '(0 2 6))
1081 ;;; (Argument 2) LIST expected: (map '#<procedure #3 +> #f '())
1082 ;;; (Argument 3) LIST expected: (map '#<procedure #3 +> '() #f)
1083 ;;; (Argument 2) LIST expected: (map '#<procedure #3 +> '(1 . #f) '(0 . #f))
1084 ;;; (Argument 1) PROCEDURE expected: (map #f '(1 2 3) '(0 2 6))
1085 (map '#<procedure #3 +> '() '() '()) => ()
1086 (map '#<procedure #3 +> '(1 2 3) '(0 2 6) '(10 100 1000)) => (11 104 1009)
1087 ;;; (Argument 3) List is not of proper length: (map '#<procedure #3 +> '(1 2 3) '(0 2) '(10 100 1000))
1088 ;;; (Argument 3) List is not of proper length: (map '#<procedure #3 +> '(1 2) '(0 2 6) '(10 100 1000))
1089 ;;; (Argument 2) LIST expected: (map '#<procedure #3 +> #f '() '())
1090 ;;; (Argument 3) LIST expected: (map '#<procedure #3 +> '() #f '())
1091 ;;; (Argument 4) LIST expected: (map '#<procedure #3 +> '() '() #f)
1092 ;;; (Argument 2) LIST expected: (map '#<procedure #3 +> '(1 . #f) '(0 . #f) '(10 . #f))
1093 ;;; (Argument 1) PROCEDURE expected: (map #f '(1 2 3) '(0 2 6) '(10 100 1000))
1094 (for-each '#<procedure #4 sqrt> '()) => #!void
1095 (for-each '#<procedure #4 sqrt> '(1 4 9)) => #!void
1096 ;;; (Argument 2) LIST expected: (for-each '#<procedure #4 sqrt> #f)
1097 ;;; (Argument 2) LIST expected: (for-each '#<procedure #4 sqrt> '(1 . #f))
1098 ;;; (Argument 1) PROCEDURE expected: (for-each #f '(1 4 9))
1099 (for-each '#<procedure #3 +> '() '()) => #!void
1100 (for-each '#<procedure #3 +> '(1 2 3) '(0 2 6)) => 9
1101 ;;; (Argument 3) List is not of proper length: (for-each '#<procedure #3 +> '(1 2 3) '(0 2))
1102 ;;; (Argument 3) List is not of proper length: (for-each '#<procedure #3 +> '(1 2) '(0 2 6))
1103 ;;; (Argument 2) LIST expected: (for-each '#<procedure #3 +> #f '())
1104 ;;; (Argument 3) LIST expected: (for-each '#<procedure #3 +> '() #f)
1105 ;;; (Argument 2) LIST expected: (for-each '#<procedure #3 +> '(1 . #f) '(0 . #f))
1106 ;;; (Argument 1) PROCEDURE expected: (for-each #f '(1 2 3) '(0 2 6))
1107 (for-each '#<procedure #3 +> '() '() '()) => #!void
1108 (for-each '#<procedure #3 +> '(1 2 3) '(0 2 6) '(10 100 1000)) => 1009
1109 ;;; (Argument 3) List is not of proper length: (for-each '#<procedure #3 +> '(1 2 3) '(0 2) '(10 100 1000))
1110 ;;; (Argument 3) List is not of proper length: (for-each '#<procedure #3 +> '(1 2 3) '(0 2) '(10 100 1000))
1111 ;;; (Argument 3) List is not of proper length: (for-each '#<procedure #3 +> '(1 2) '(0 2 6) '(10 100 1000))
1112 ;;; (Argument 2) LIST expected: (for-each '#<procedure #3 +> #f '() '())
1113 ;;; (Argument 3) LIST expected: (for-each '#<procedure #3 +> '() #f '())
1114 ;;; (Argument 4) LIST expected: (for-each '#<procedure #3 +> '() '() #f)
1115 ;;; (Argument 2) LIST expected: (for-each '#<procedure #3 +> '(1 . #f) '(0 . #f) '(10 . #f))
1116 ;;; (Argument 1) PROCEDURE expected: (for-each #f '(1 2 3) '(0 2 6) '(10 100 1000))
1117 (force 123) => 123
1118 ;;; CALL EXPRESSION (call/cc #f) IS WRONG: (call-with-current-continuation #f)
1119 ;;; (Argument 1) STRING or port settings expected: (call-with-input-file #f '#<procedure #5 list>)
1120 ;;; (Argument 2) PROCEDURE expected: (call-with-input-file "tmp" #f)
1121 ;;; No such file or directory: (call-with-input-file "notexist" '#<procedure #5 list>)
1122 ;;; (Argument 1) STRING or port settings expected: (call-with-output-file #f '#<procedure #5 list>)
1123 ;;; (Argument 2) PROCEDURE expected: (call-with-output-file "tmp" #f)
1124 (input-port? '#<input-port #6 (stdin)>) => #t
1125 (input-port? '#<output-port #7 (stdout)>) => #f
1126 (input-port? #f) => #f
1127 (output-port? '#<output-port #7 (stdout)>) => #t
1128 (output-port? '#<input-port #6 (stdin)>) => #f
1129 (output-port? #f) => #f
1130 (current-input-port) => #<input-port #6 (stdin)>
1131 (current-output-port) => #<output-port #7 (stdout)>
1132 ;;; (Argument 1) STRING or port settings expected: (with-input-from-file #f '#<procedure #5 list>)
1133 ;;; (Argument 2) PROCEDURE expected: (with-input-from-file "tmp" #f)
1134 ;;; No such file or directory: (with-input-from-file "noexist" '#<procedure #5 list>)
1135 ;;; (Argument 1) STRING or port settings expected: (with-output-to-file #f '#<procedure #5 list>)
1136 ;;; (Argument 2) PROCEDURE expected: (with-output-to-file "tmp" #f)
1137 ;;; (Argument 1) STRING or port settings expected: (open-input-file #f)
1138 ;;; No such file or directory: (open-input-file "noexist")
1139 ;;; (Argument 1) STRING or port settings expected: (open-output-file #f)
1140 ;;; (Argument 1) INPUT PORT expected: (close-input-port '#<output-port #7 (stdout)>)
1141 ;;; (Argument 1) INPUT PORT expected: (close-input-port #f)
1142 ;;; (Argument 1) OUTPUT PORT expected: (close-output-port '#<input-port #6 (stdin)>)
1143 ;;; (Argument 1) OUTPUT PORT expected: (close-output-port #f)
1144 (read) => 1
1145 ;;; (Argument 1) INPUT PORT expected: (read '#<output-port #7 (stdout)>)
1146 ;;; (Argument 1) INPUT PORT expected: (read #f)
1147 (read-char) => #\space
1148 ;;; (Argument 1) Character INPUT PORT expected: (read-char '#<output-port #7 (stdout)>)
1149 ;;; (Argument 1) Character INPUT PORT expected: (read-char #f)
1150 (peek-char) => #\2
1151 ;;; (Argument 1) Character INPUT PORT expected: (peek-char '#<output-port #7 (stdout)>)
1152 ;;; (Argument 1) Character INPUT PORT expected: (peek-char #f)
1153 (eof-object? #f) => #f
1154 (eof-object? "abc") => #f
1155 (char-ready?) => #t
1156 (char-ready? '#<input-port #6 (stdin)>) => #t
1157 ;;; (Argument 1) Character INPUT PORT expected: (char-ready? '#<output-port #7 (stdout)>)
1158 ;;; (Argument 1) Character INPUT PORT expected: (char-ready? #f)
1159 "abc"(write "abc") => #!void
1160 "abc"(write "abc" '#<output-port #7 (stdout)>) => #!void
1161 ;;; (Argument 2) OUTPUT PORT expected: (write "abc" '#<input-port #6 (stdin)>)
1162 ;;; (Argument 2) OUTPUT PORT expected: (write "abc" #f)
1163 abc(display "abc") => #!void
1164 abc(display "abc" '#<output-port #7 (stdout)>) => #!void
1165 ;;; (Argument 2) OUTPUT PORT expected: (display "abc" '#<input-port #6 (stdin)>)
1166 ;;; (Argument 2) OUTPUT PORT expected: (display "abc" #f)
1167
1168 (newline) => #!void
1169
1170 (newline '#<output-port #7 (stdout)>) => #!void
1171 ;;; (Argument 1) OUTPUT PORT expected: (newline '#<input-port #6 (stdin)>)
1172 ;;; (Argument 1) OUTPUT PORT expected: (newline #f)
1173 A(write-char #\A) => #!void
1174 ;;; (Argument 1) CHARACTER expected: (write-char 123)
1175 A(write-char #\A '#<output-port #7 (stdout)>) => #!void
1176 ;;; (Argument 1) CHARACTER expected: (write-char 123 '#<output-port #7 (stdout)>)
1177 ;;; (Argument 2) Character OUTPUT PORT expected: (write-char #\A '#<input-port #6 (stdin)>)
1178 ;;; (Argument 2) Character OUTPUT PORT expected: (write-char #\A #f)
1179 ;;; No such file or directory: (load "noexist")
1180 ;;; (Argument 1) STRING or port settings expected: (load #f)
1181 ;;; (Argument 1) STRING expected: (transcript-on #f)
1182 (transcript-off) => #!void
1183 (setenv "UNKNOWNVAR1") => #!void
1184 (setenv "UNKNOWNVAR2" "NOW-DEFINED") => #!void
1185 ;;; Unbound OS environment variable: (getenv "UNKNOWNVAR1")
1186 (getenv "UNKNOWNVAR2") => "NOW-DEFINED"
1187 (getenv "UNKNOWNVAR1" 999) => 999
1188 (getenv "UNKNOWNVAR2" 999) => "NOW-DEFINED"
1189 (cdr-command-line) => ("-f" "error.scm")
1190 (shell-command "echo hello > newfile1") => 0
1191 (create-directory "newdir1") => #!void
1192 ;;; #<os-exception #8>: (create-directory "newdir1")
1193 ;;; #<os-exception #9>: (create-directory "newfile1")
1194 (rename-file "newdir1" "newdir2") => #!void
1195 ;;; No such file or directory: (rename-file "newdir1" "newdir2")
1196 (rename-file "newfile1" "newdir2/aaa") => #!void
1197 ;;; No such file or directory: (rename-file "newfile1" "newdir2/aaa")
1198 (copy-file "error.scm" "newdir2/bbb") => #!void
1199 ;;; No such file or directory: (copy-file "notexist" "newdir2/ccc")
1200 (sort-directory-files) => ("aaa" "bbb")
1201 (file-exists? ".") => #t
1202 (file-exists? "error.scm") => #t
1203 (file-exists? "newdir2") => #t
1204 (file-exists? "newdir2/bbb") => #t
1205 (file-exists? "notexist") => #f
1206 (file-type ".") => directory
1207 (file-type "error.scm") => regular
1208 (file-type "newdir2") => directory
1209 (file-type "newdir2/bbb") => regular
1210 ;;; No such file or directory: (file-type "notexist")
1211 (file-size "error.scm") => 65891
1212 (file-size "newdir2/bbb") => 65891
1213 ;;; No such file or directory: (file-size "notexist")
1214 ;;; #<os-exception #10>: (delete-directory "newdir2")
1215 (delete-file "newdir2/aaa") => #!void
1216 (delete-file "newdir2/bbb") => #!void
1217 ;;; No such file or directory: (delete-file "newdir2/ccc")
1218 (delete-directory "newdir2") => #!void
1219 (open-process '(path: "sort" arguments: ("input") eol-encoding: cr-lf)) => #<input-output-port #11 (process "sort" "input")>
1220 (read-all-open-process) => (brown dog fox jumps lazy over quick the the)