pTymN
Joined: 16 Nov 2005 Posts: 42 Location: Chapel Hill, NC, USA, Earth...
|
Posted: Mon Jul 21, 2008 5:06 pm Post subject: For CCL 3.01, use sxhash symbol-name of symbols |
|
|
; The CCL 3.01 implementation of sxhash is broken for symbols
(in-package :cl)
(defun sxhash (object)
(if (symbolp object)
(hash-equalp-function (symbol-name object))
(hash-equalp-function object))) |
|