Changeset 10691


Ignore:
Timestamp:
Sep 10, 2008, 6:53:18 AM (11 years ago)
Author:
gb
Message:

Define TARGET-OS-NAME.

File:
1 edited

Legend:

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

    r10624 r10691  
    6666
    6767
     68(defun target-os-name (&optional (backend *target-backend*))
     69  (cdr (assoc (logand platform-os-mask (backend-target-platform backend))
     70              *platform-os-names*)))
     71
    6872
    6973(defparameter *backend-node-regs* 0)
Note: See TracChangeset for help on using the changeset viewer.