diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 72ed41218362390083c2a27d358d7323a3d3852d..b2480e5129bd11262004dcf715bca384fa4e4290 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.66 1994/06/22 13:21:40 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.67 1994/07/18 17:33:33 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3657,7 +3657,8 @@ ;; to the C code. (breakpoint-do-displaced-inst signal-context (breakpoint-data-instruction data)) - #-hpux ; Under HPUX we can't sigreturn so bp-do-disp-i has to return. + ; Under HPUX we can't sigreturn so bp-do-disp-i has to return. + #-(or hpux irix) (error "BREAKPOINT-DO-DISPLACED-INST returned?")))) (defun invoke-breakpoint-hooks (breakpoints component offset)