diff --git a/hemlock/linimage.lisp b/hemlock/linimage.lisp index ee4b6e935943c1085859ae0ef4e72e4e4be85405..bf04b94315fb9e073c894b2ece82b335b6442ce5 100644 --- a/hemlock/linimage.lisp +++ b/hemlock/linimage.lisp @@ -193,7 +193,7 @@ (defmacro u-vec-get-rep (u-vec index) `(svref *print-representation-vector* - (%primitive 8bit-system-ref ,u-vec ,index))) + (system:sap-ref-8 ,u-vec ,index))) ;;; display-losing-chars -- Internal ;;;