Changeset 13312


Ignore:
Timestamp:
Dec 21, 2009, 11:49:23 PM (10 years ago)
Author:
rme
Message:

Add case for random state objects in EQUALP. Call new function
%random-state-equalp to perform the comparison.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/new-random/level-1/sysutils.lisp

    r13184 r13312  
    512512        ((and (hash-table-p x) (hash-table-p y))
    513513         (%hash-table-equalp x y))
     514        ((and (random-state-p x) (random-state-p y))
     515         (%random-state-equalp x y))
    514516        (t nil)))
    515517
Note: See TracChangeset for help on using the changeset viewer.