Changeset 11180 for trunk/source/library


Ignore:
Timestamp:
Oct 20, 2008, 4:16:59 AM (11 years ago)
Author:
gb
Message:

Try to make this a little less x8664-specific.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/leaks.lisp

    r11165 r11180  
    156156                     (and (consp key) (eq (car key) 'ccl::function-source-note))
    157157                     (typep key 'ccl::hash-table-vector)
    158                      (when (typep key 'ccl::symbol-vector)
    159                        (push (ccl::%symvector->symptr key) additions)
     158                     (when (and key
     159                                (typep key
     160                                  #+x8664-target 'ccl::symbol-vector
     161                                  #-x8664-target 'symbol
     162                                  ))
     163                       (push (ccl::symvector->symptr key) additions)
    160164                       t)
    161                      (when (typep key 'ccl::function-vector)
    162                        (push (ccl::%function-vector-to-function key) additions)
     165                     (when (typep key
     166                                  #+x8664-target 'ccl::function-vector
     167                                  #-x8664-target 'function
     168                                  )
     169                       (push (ccl::function-vector-to-function key) additions)
    163170                       t))
    164171              do
Note: See TracChangeset for help on using the changeset viewer.