Lines Matching defs:eql
128 (defun eql-test (expect function &rest arguments)
129 (compare-test #'eql expect function arguments))
140 (defun eql-eval (expect form)
141 (compare-eval #'eql expect form))
486 (eql-test #\a #'read-char is)
487 (eql-test #\b #'read-char is)
488 (eql-test #\c #'read-char is)
503 (eql-test #\a #'read-char-no-hang is)
504 (eql-test #\b #'read-char-no-hang is)
505 (eql-test #\c #'read-char-no-hang is)
524 (eql-test #\d #'read-char-no-hang is)
525 (eql-test #\o #'read-char-no-hang is)
526 (eql-test #\g #'read-char-no-hang is)
527 (eql-test #\Newline #'read-char-no-hang is)
532 (eql-test #\m #'read-char-no-hang is)
533 (eql-test #\o #'read-char-no-hang is)
534 (eql-test #\u #'read-char-no-hang is)
535 (eql-test #\s #'read-char-no-hang is)
536 (eql-test #\e #'read-char-no-hang is)
537 (eql-test #\Newline #'read-char-no-hang is)
586 (eql-test #\Space #'write #\Space :stream os)
588 (eql-test #\Space #'write #\Space :escape nil :stream os)
654 (eql-test #\Space #'write-char #\Space w-os))
691 (eql-test #\< #'write-char #\< os)
693 (eql-test #\> #'write-char #\> os)
703 (eql-test #\< #'write-char #\< os)
705 (eql-test #\> #'write-char #\> os)
792 (eql-test 3 #'length result)