www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

6.3-equality-predicates.lisp (145B)

      1 ;; NEED : stringp
      2 ;; NEED : string=
      3 
      4 (defun equal (a b)
      5   (cond ((and (stringp a) (stringp b))
      6          (string= a b))
      7         (t
      8          nil)))