Ignore:
Timestamp:
Apr 8, 2008, 5:04:04 AM (12 years ago)
Author:
gb
Message:

LOCKP typo fix from wws.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r8986 r9058  
    18721872
    18731873(define-compiler-macro lockp (lock)
    1874   (let* ((tag (nx-lookup-target-uvector-subtag :simple-string)))
     1874  (let* ((tag (nx-lookup-target-uvector-subtag :lock)))
    18751875    `(eq ,tag (typecode ,lock))))
    18761876
Note: See TracChangeset for help on using the changeset viewer.