;;; -*- Mode:LISP; Package:VINCULUM; Readtable:CL; Base:10. -*- ;;;***************************************************************************************************** ;;;***** This file should be identical to conversions(-for-k-debugger) at all times WKF 5/5/88 ***** ;;;***************************************************************************************************** ;;; These duplicate versions are needed to fool make-system since COMPILER-FOR-K and K-DEBUGGER ;;; both use this file and k-debugger loads it in the k-user hierarchy. WKF (export '( %%quantum-number-in-cluster cluster->address cluster-number cluster-quantum quantum->address quantum-number quantum->cluster )) (defextractor cluster-number %%cluster-number) (defsubst cluster->address (cluster) (hw:dpb cluster %%cluster-number 0.)) (defextractor quantum-number %%quantum-number) (defsubst quantum->address (quantum) (hw:dpb-unboxed quantum %%quantum-number (hw:unboxed-constant 0.))) (defconstant %%quantum-number-in-cluster (byte (byte-size %%quantum-number) (- (byte-position %%quantum-number) (byte-position %%cluster-number)))) (defsubst cluster-quantum (cluster) (hw:ldb cluster %%quantum-number-in-cluster 0)) (defsubst quantum->cluster (quantum) (hw:dpb quantum %%quantum-number-in-cluster 0))