Skip to content
Browse files

Use and shadow ERLANG-TERM:MAKE-PID and ERLANG-TERM:MAKE-REFERENCE.

  • Loading branch information...
1 parent 095c0da commit 94076334afc8f7842f54cb99c46803646278a852 @flambard committed
Showing with 10 additions and 12 deletions.
  1. +9 −12 src/local-node.lisp
  2. +1 −0 src/packages.lisp
View
21 src/local-node.lisp
@@ -55,14 +55,13 @@
(defun make-pid ()
"Create a new Erlang PID."
- (make-instance 'erlang-pid
- :node (make-symbol (this-node))
- :id (generate-new-pid-id)
- ;; What to set on serial and creation?
- :serial (make-array 4
- :element-type '(unsigned-byte 8)
- :initial-contents (list 0 0 0 0))
- :creation 1))
+ (erlang-term:make-pid (this-node)
+ (generate-new-pid-id)
+ ;; What to set on serial and creation?
+ (make-array 4
+ :element-type '(unsigned-byte 8)
+ :initial-contents (list 0 0 0 0))
+ 1))
;;;
@@ -76,7 +75,5 @@
(defun make-reference ()
"Create a new Erlang reference."
- (make-instance 'erlang-reference
- :node (make-symbol (this-node))
- :id (generate-new-reference-id)
- :creation 1)) ;; What to set here?
+ ;; What should creation be set to?
+ (erlang-term:make-reference (this-node) (generate-new-reference-id) 1))
View
1 src/packages.lisp
@@ -41,6 +41,7 @@
#:cleric-handshake-protocol
#:erlang-term
#:etf-bops)
+ (:shadow #:make-pid #:make-reference)
(:export
;; Type

0 comments on commit 9407633

Please sign in to comment.
Something went wrong with that request. Please try again.