Lines Matching defs:eq
125 (defun eq-test (expect function &rest arguments)
126 (compare-test #'eq expect function arguments))
137 (defun eq-eval (expect form)
138 (compare-eval #'eq expect form))
160 (or (eq (null result) (null expect))
178 (or (eq (null result) (null expect))
419 (eq-test path #'pathname path)
420 (eq-test nil #'pathname-host path)
421 (eq-test nil #'pathname-device path)
425 (eq-test nil #'pathname-version path)
457 (eq-test t #'streamp is)
458 (eq-test t #'input-stream-p is)
459 (eq-test nil #'output-stream-p is)
460 (eq-test 'foo #'read is)
461 (eq-test t #'close is)
463 (eq-test 'foo #'read is)
464 (eq-test t #'close is)
466 (eq-test nil #'read is nil)
467 (eq-test 'end-of-string #'read is nil 'end-of-string)
472 (eq-test t #'streamp is)
473 (eq-test nil #'input-stream-p is)
474 (eq-test nil #'streamp "test")
490 (eq-test nil #'read-char is nil)
491 (eq-test :end-of-string #'read-char is nil :end-of-string)
492 (eq-test t #'close is)
507 (eq-test nil #'read-char-no-hang is nil)
508 (eq-test :end-of-string #'read-char-no-hang is nil :end-of-string)
509 (eq-test t #'close is)
528 (eq-test nil #'read-char-no-hang is)
529 (eq-test nil #'read-char-no-hang is)
538 (eq-test nil #'read-char-no-hang is)
539 (eq-test t #'close is)
551 (eq-test nil #'read-from-string "" nil)
552 (eq-test 'end-of-file #'read-from-string "" nil 'end-of-file)
570 (eq-test t #'streamp os)
571 (eq-test t #'output-stream-p os)
572 (eq-test nil #'input-stream-p os)
584 (eq-test circle #'write circle :circle t :stream os)
590 (eq-test t #'close os)
591 (eq-test nil #'output-stream-p os)
598 (eq-test t #'fresh-line os)
599 (eq-test nil #'fresh-line os)
616 (eq-test object #'prin1 object p-os)
617 (eq-test object #'write object :stream w-os :escape t)
632 (eq-test object #'princ object p-os)
633 (eq-test object #'write object :stream w-os :escape nil)
650 (eq-test object #'print object p-os)
652 (eq-test nil #'terpri w-os)
653 (eq-test object #'write object :stream w-os :escape t)
664 (eq-test nil #'terpri os)
665 (eq-test nil #'terpri os)
722 #+xedit (eq-test t #'delete-file name)
729 (eq-test nil #'delete-file name)
730 (eq-test nil #'directory name)
731 (eq-test nil #'directory backup)
740 (eq-test 'eof #'read-line s nil 'eof)
750 (eq-test 'eof #'read-line s nil 'eof))
752 (eq-test nil #'open name :direction :output :if-exists nil)
756 (eq-test nil #'open name :direction :output :if-does-not-exist nil)
766 (eq-test 'eof #'read-line s nil 'eof)
772 (eq-test 'eof #'read-line s nil 'eof))
777 (eq-eval nil
779 (eq-test t #'pathnamep (setq p (probe-file "delete-me.text")))
781 (eq-test nil #'probe-file "delete-me.text")
790 (eq-test t #'close file)
793 (eq-test t #'pathnamep (first result))
794 (eq-test t #'pathnamep (second result))
795 (eq-test t #'pathnamep (third result))
797 (eq-test nil #'directory name)
798 (eq-test nil #'directory (second result))
802 (eq-test nil #'probe-file name)
804 (eq-test nil #'probe-file (second result))
807 (eq-test nil #'delete-file (third result))
808 (eq-test nil #'delete-file (second result))