Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
473bf981
Commit
473bf981
authored
Feb 19, 1992
by
wlott
Browse files
Qualify GR-ERROR as being in the MACH package now that it is.
parent
589c12e0
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/mach-os.lisp
View file @
473bf981
;;; -*-
Mode: Lisp; Package: Lisp; Log: code.log
-*-
;;; -*-
Package: SYSTEM
-*-
;;;
;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.
4
1992/02/1
5
1
2:47:59
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.
5
1992/02/1
9
1
6:28:08
wlott Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -51,7 +51,7 @@
(
multiple-value-bind
(
gr
ps
fc
ac
ic
wc
zf
ra
in
ot
)
(
mach:vm_statistics
*task-self*
)
(
declare
(
ignore
ps
fc
ac
ic
wc
zf
ra
))
(
gr-error
'mach:vm_statistics
gr
)
(
mach:
gr-error
'mach:vm_statistics
gr
)
(
values
utime
stime
(
+
in
ot
)))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment