Changeset 14582


Ignore:
Timestamp:
Jan 17, 2011, 7:23:40 PM (14 years ago)
Author:
Gary Byers
Message:

Don't use MAKE-RECORD this early in the cold load.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/level-1/linux-files.lisp

    r14581 r14582  
    841841        (setq namestring (concatenate 'string namestring "*"))
    842842        (setq namestring (concatenate 'string namestring "/*")))))
    843   (let* ((dir (make-record :win64-dir :state -1)))
     843  (let* ((dir (malloc (record-length :win64-dir))))
    844844    (with-filename-cstrs ((name namestring))
    845845      (let* ((handle (#_FindFirstFileW name dir)))
Note: See TracChangeset for help on using the changeset viewer.